Transcript I would like to introduce you to your new employee “Joe”

The Object Handler:
SYSOBJH
Andy Engels
IS Team Leader - Technical Services
Illinois Municipal Retirement Fund
14th NATURAL Conference
IMRF
“Locally Funded, Financially Sound”
Agenda
1. A little about IMRF
2. Setting up Security
3. Batch processing
4. Some other options
5. Open Systems
6. It’s just like SYSTRANS
7. Discussion
About IMRF
 Retirement fund for municipal employees in
Illinois outside Cook County and Chicago
 100% Funding Goal
 Over $20 Billion in assets
 2,900 employers
 168,000 active members
 Over 77,000 benefit recipients
Security Setup
13:05:07
*** NATURAL SECURITY ***
2006-09-08
- Administrator Services Menu 2 -
Code
Function
----
----------------------------------------
1
Environment profiles
U
User default profiles
Y
Library default profiles
D
Library and user preset values
X
Utility defaults/templates
S
System-library definitions
I
Application interfaces
?
Help
.
Exit
----
----------------------------------------
Code _
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit
Flip
Adm-1
Canc
Security Setup
13:11:01
*** NATURAL SECURITY ***
- Define Utility Defaults/Templates -
Co Utility
Message
__ ________
______________________
__ NATLOAD
default defined
__ NATUNLD
default defined
__ SYSBPM
default defined
__ SYSDDM
default defined
__ SYSERR
default defined
__ SYSMAIN
default defined
AD SYSOBJH
nothing defined
__ SYSPARM
default defined
__ SYSRPC
nothing defined
__ SYSSAFOS
nothing defined
__ SYSTRANS
default defined
Command ===>
2006-09-08
Security Setup
13:51:58
*** NATURAL SECURITY ***
2006-09-08
- Template for SYSOBJH Utility -
A/D
Nat Err CPr NRe Ext FDT MfD MfR
Par Rep
Status
---
--- --- --- --- --- --- --- ---
--- ---
----------
D
Unload
D
D
D
D
D
D
D
D
D
D
Load
D
D
D
D
D
D
D
D
D
D
Delete
D
D
D
D
D
D
D
D
D
General
Admin D FSEC D FDIC D Transfer only Y (Y/N)
y
Applies as default profile
Disallowed
D
Disallowed
Disallowed
Security Setup
Security Setup
13:54:49
*** NATURAL SECURITY ***
2006-09-08
- Utility Maintenance -
Co Utility
Default
User
Library
User-Lib.
Message
__ ________
_______
_______
_______
_________
_____________________
__ NATLOAD
YES
YES
NO
NO
__ NATUNLD
YES
YES
YES
NO
__ SYSBPM
YES
YES
YES
NO
__ SYSDDM
YES
NO
NO
NO
__ SYSERR
YES
NO
NO
NO
__ SYSMAIN
YES
YES
NO
NO
__ SYSOBJH
YES
NO
NO
NO
__ SYSPARM
YES
NO
__ SYSTRANS
YES
YES
YES
NO
Security Setup
Security Setup
Security Setup
13:58:33
*** NATURAL SECURITY ***
2006-09-08
- User Profile for SYSOBJH Utility -
User ID: ADMIN
A/D
Nat Err CPr NRe Ext FDT MfD MfR
Par Rep
Status
---
--- --- --- --- --- --- --- ---
--- ---
----------
a
Unload
a
a
a
a
a
a
a
a
a
a
Load
a
a
a
a
a
a
a
a
a
a
Delete
a
a
a
a
a
a
a
a
a
General
Disallowed
a
Disallowed
Disallowed
Admin y FSEC y FDIC y Transfer only n (Y/N)
16:02:52
*** NATURAL SECURITY ***
2006-09-08
- User Profiles for Utility -
Utility
SYSOBJH
Ty Profile
Co User ID
User Name
pe
U U-L
Message
__ ________ ________________________________ __
_ ___
_____________________
__ ADMIN
X
added
SYSTEM ADMINSTRATION
G
JCL
* $$ JOB JNM=SYSOBJH,CLASS=G
* $$ LST CLASS=Q,DISP=H
* $$ PUN CLASS=Q,DISP=H
// JOB SYSOBJH
UNLOAD NATURAL OBJECTS USING NEW SYSOBJH UTILITY
* STEP 1 - UNLOAD THE DATA
// EXEC PROC=SAGLBDEF
// DLBL CMWKF01,'SYSOBJH.FTP.WORK',1,SD
// EXTENT SYS001,SHRP01,,,1,450
* NATBATCH/SYSOBJH
// EXEC NATBATCH,SIZE=NATBATCH,PARM='SYSRDR'
OBJIN=R
MENU=OFF,AUTO=OFF
IM=D,MADIO=0,MAXCL=0,MT=0
WORK=((1),AM=STD,RECFM=VB,LRECL=256,TRUNC=ON,SYSNR=01,BLKSIZE=2560)
/*
ADARUN DBID=7
/*
DBALIB,UID,PWD
SYSOBJH
UNLOAD ANDYPROG LIBRARY DBALIB
UNLOAD ANDYDDM LIB * OBJT D
END
FIN
/*
/* UNLOAD TESTL1 LIBRARY WORKLIB FIXEDLENGTH
/* LOAD * LIB * WITH NEWLIBRARY DBALIB
/&
* $$ EOJ
Results
*CF* %*
Logon accepted to library DBALIB.
NEXT SYSOBJH
Input Command Data or '.' to exit ...
DATA UNLOAD ANDYPROG LIBRARY DBALIB
16:49:08
***** Natural Object Handler *****
User ANDY
Direct Command Processing
2006-09-11
Library DBALIB
Report Text Member 11649075
*** Unload Objects ***
Status
Library
Object Name
Type
------------------------------ -------- -------------------------------- -------
Unloaded
DBALIB
ANDYPROG
Program
Unloaded
DBALIB
ANDYPROG
Program
Function completed successfully.
Page
2
SYSOBJH direct command processing:
Function completed successfully.
Results
Input Command Data or '.' to exit ...
DATA UNLOAD ANDYDDM LIB * OBJT D
16:49:08
***** Natural Object Handler *****
User ANDY
Direct Command Processing
2006-09-11
Library DBALIB
Report Text Member 11649086
Created by Natural Object Handler (OINGETTN) on 2
Status
Library
Object Name
Type
------------------------------ -------- -------------------------------- ------Unloaded
ANDYDDM
Function completed successfully.
Page
4
SYSOBJH direct command processing:
Function completed successfully.
Input Command Data or '.' to exit ...
DDM
JCL
* $$ JOB JNM=SYSOBJH,CLASS=G
* $$ LST CLASS=Q,DISP=H
* $$ PUN CLASS=Q,DISP=H
// JOB SYSOBJH
UNLOAD NATURAL OBJECTS USING NEW SYSOBJH UTILITY
* STEP 1 - UNLOAD THE DATA
// EXEC PROC=SAGLBDEF
// DLBL CMWKF01,'SYSOBJH.FTP.WORK',1,SD
// EXTENT SYS001,SHRP01,,,1,450
* NATBATCH/SYSOBJH
// EXEC NATBATCH,SIZE=NATBATCH,PARM='SYSRDR'
OBJIN=R
MENU=OFF,AUTO=OFF
IM=D,MADIO=0,MAXCL=0,MT=0
WORK=((1),AM=STD,RECFM=VB,LRECL=256,TRUNC=ON,SYSNR=01,BLKSIZE=2560)
/*
ADARUN DBID=7
/*
DBALIB,UID,PWD
SYSOBJH
LOAD * LIB * WITH NEWLIBRARY NATAGE WHERE REPLACE ALL
END
FIN
/*
/* UNLOAD TESTL1 LIBRARY WORKLIB FIXEDLENGTH
/* LOAD * LIB * WITH NEWLIBRARY DBALIB
/&
* $$ EOJ
Results
Logon accepted to library DBALIB.
NEXT SYSOBJH
Input Command Data or '.' to exit ...
DATA LOAD * LIB * WITH NEWLIBRARY NATAGE WHERE REPLACE ALL
10:34:59
***** Natural Object Handler *****
User ANDY
Direct Command Processing
2006-09-12
Library DBALIB
Report Text Member 21034590
*** Load Objects ***
Processing Load File created on 2006
Status
Library
Object Name
Type
------------------------------ -------- -------------------------------- ------Replaced
NATAGE
ANDYPROG
Program
Replaced
NATAGE
ANDYPROG
Program
ANDYDDM
DDM
Replaced
Function completed successfully.
Page
2
SYSOBJH direct command processing:
Function completed successfully.
Input Command Data or '.' to exit ... DATA END
NEXT FIN
NAT9995 Natural session terminated normally.
Other Options
Workplans
• If you don’t have a change management tool and you
have a large project to be migrated
• Selection rules or list of objects
• Renaming or changing the library during the migration
Profiles
Set your own user defaults for workplans, features, or
other migration options
Open Systems
Open Systems
Open Systems
Open Systems
Open Systems
Open Systems
Open Systems
Open Systems
Open Systems
Open Systems
Open Systems
Just like SYSTRANS
Just like SYSTRANS
16:33:49
User ANDY
***** Natural Object Handler *****
- Main Menu -
2006-10-24
Select the desired function:
_
Unload objects or a whole application from your Natural environment
_
Load objects or an application into your Natural environment
_
Scan work file contents
_
View objects in the Natural environment
_
Administrate the Object Handler environment,
process Workplans and direct commands
Mark this field to avoid Object Handler wizards:
_
Advanced user
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit Unld Load Scan View Admin
Cmds
Canc
4AÛ
06,009
Just like SYSTRANS
16:36:44
User ANDY
***** Natural Object Handler *****
- Load Wizard -
2006-10-24
You can load objects from transfer and non-transfer work files
into the Natural environment or execute a command procedure.
Select the desired function:
X Load objects from Natural work file(s).
_ Start Object Handler command procedure.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit
Back Next
Cmds
Canc
4AÛ
11,011
Just like SYSTRANS
16:39:48
User ANDY
***** Natural Object Handler *****
- Load Wizard, Options -
2006-10-24
If the work file contains data in Transfer format, mark this field:
x Transfer format
If you want to use a PC work file, mark this field:
_ Use PC work file
If you use a PC work file enter the PC work file name. If the path and
the name do not fit into the field, press PF1 to specify a longer value.
PC File
__________________________________________________
Select the desired option to be used.
Mark 'Set additional options', to use additional options.
X Use default options
_ Set additional options
_ Use Option Workplan
Name ________
_ List Option Workplan
_ Select Option Workplan
Please enter options.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit OpSet SelWP LstWP Back Next
Cmds
Canc
4AÛ
16,009
Just like SYSTRANS
16:41:27
User ANDY
***** Natural Object Handler *****
- Load Wizard, Parameters -
2006-10-24
Use parameters if you want to load the objects with modified settings.
The corresponding object properties will differ from those
given in the work file according to the parameter setting.
Select the desired options to be used.
Mark 'Set global parameters', to use additional parameters.
Do not use parameters
x Use global parameters
_ Set global parameters
_ Use Parameter Workplan Name ________
_ List Parameter Workplan
_ Select Parameter Workplan
Mark one parameter field.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit PaSet SelWP LstWP Back Next
Cmds
Canc
4AÛ
15,053
Just like SYSTRANS
16:43:01
User ANDY
***** Natural Object Handler *****
- Load Wizard, Select Load Type -
2006-10-24
Select the object type for load.
You can load all objects from the work file or you can load
objects of different object types sequentially in separate steps.
X
_
_
_
_
_
_
Load all objects from the work file
or load selected objects from the work file:
Natural library objects only
Natural system error messages only
Natural command processor sources only
Natural-related objects only
DDMs only
FDTs only
or
Use Selection or List Workplan
Mark one object type.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit
Back Next
Cmds
Canc
4AÛ
09,011
Just like SYSTRANS
16:43:50
User ANDY
***** Natural Object Handler *****
- Load Wizard -
2006-10-24
The following command will be processed.
To change the settings, press PF7 (Back). To confirm the settings and
to execute the command, press ENTER or PF8 (Next).
LOADALL WHERE REPORT TRANSFER
Please press PF7 (Back) or ENTER/PF8 (Next).
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit
Save
Back Next
Cmds
Canc
4AÛ
22,015
Just like SYSTRANS
Just like SYSTRANS
Just like SYSTRANS
16:56:37
User ANDY
***** Natural Object Handler *****
- Display Load Report -
2006-10-24
Position
1 - 78
Status
Library Object Name
Object Type S/C
-------------------- -------- -------------------------------- ----------- --Loaded
DBALIB
WISDOM
Program
Src
Bottom of data reached.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--Help
Exit
>
-+
++
Cmds
Canc
4AÛ
22,015
Just like SYSTRANS
>
> + Program WISDOM Lib DBALIB
All ....+....1....+....2....+....3....+....4....+....5....+.Mode Structured.
0001 * Demo program to upload from the PC using SYSOBJH
0002 *
0003 * Author. Andy Engels
0004 * Date-written. 09/27/06
0005 *
0006 DEFINE DATA LOCAL
0007 1 X (N5)
0008 END-DEFINE
0009 FOR X = 1 TO 5
0010 PRINT X
0011 END-FOR /* (0090)
0012 END
0022
0032
0042
0052
0062
0072
0082
0092
....+..Current Source Size: 228 Char. Free: 223285 ...+... S 12 L 1
4AÛ
02,004
The Object Handler:
SYSOBJH
Questions......
Discussion......
Andy Engels
IS Team Leader - Technical Services
Illinois Municipal Retirement Fund
14th NATURAL Conference
IMRF
“Locally Funded, Financially Sound”