400 likes | 1.4k Views
The Object Handler: SYSOBJH. IMRF “Locally Funded, Financially Sound”. Andy Engels IS Team Leader - Technical Services Illinois Municipal Retirement Fund 14 th NATURAL Conference. Agenda. A little about IMRF Setting up Security Batch processing Some other options Open Systems
E N D
The Object Handler: SYSOBJH IMRF “Locally Funded, Financially Sound” Andy Engels IS Team Leader - Technical Services Illinois Municipal Retirement Fund 14th NATURAL Conference
Agenda • A little about IMRF • Setting up Security • Batch processing • Some other options • Open Systems • It’s just like SYSTRANS • 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 *** 2006-09-08 - 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 ADSYSOBJH nothing defined __ SYSPARM default defined __ SYSRPC nothing defined __ SYSSAFOS nothing defined __ SYSTRANS default defined Command ===>
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 Disallowed D Load D D D D D D D D D D Disallowed D Delete D D D D D D D D D Disallowed General Admin D FSEC D FDIC D Transfer only Y (Y/N) y Applies as default profile
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 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 Disallowed a Load a a a a a a a a a a Disallowed a Delete a a a a a a a a a Disallowed General 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 SYSTEM ADMINSTRATION G X added
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 ***** 2006-09-11 User ANDY Direct Command Processing 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 ***** 2006-09-11 User ANDY Direct Command Processing Library DBALIB Report Text Member 11649086 Created by Natural Object Handler (OINGETTN) on 2 Status Library Object Name Type ------------------------------ -------- -------------------------------- ------- Unloaded ANDYDDM DDM Function completed successfully. Page 4 SYSOBJH direct command processing: Function completed successfully. Input Command Data or '.' to exit ...
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 ***** 2006-09-12 User ANDY Direct Command Processing 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 Replaced ANDYDDM DDM 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
Just like SYSTRANS 16:33:49 ***** Natural Object Handler ***** 2006-10-24 User ANDY - Main Menu - 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 ***** Natural Object Handler ***** 2006-10-24 User ANDY - Load Wizard - 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 ***** Natural Object Handler ***** 2006-10-24 User ANDY - Load Wizard, Options - 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 ***** Natural Object Handler ***** 2006-10-24 User ANDY - Load Wizard, Parameters - 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 ***** Natural Object Handler ***** 2006-10-24 User ANDY - Load Wizard, Select Load Type - 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 ***** Natural Object Handler ***** 2006-10-24 User ANDY - Load Wizard - 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 16:56:37 ***** Natural Object Handler ***** 2006-10-24 User ANDY - Display Load Report - 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: SYSOBJHQuestions......Discussion...... IMRF “Locally Funded, Financially Sound” Andy Engels IS Team Leader - Technical Services Illinois Municipal Retirement Fund 14th NATURAL Conference