Template:VSE M204CATP

// JOB M204CATP * ******************************************************************** * Rocket Model 204 * 09/16 * ******************************************************************** /* M204CATP allocates VSAM managed space for the Model 204 /* library, defines the sublibraries and catalogs /* the two Model 204 procedures. /* /* To adapt this procedure to your installation: /* 1. Modify JOB statement /* 2. Modify the following in the job stream: /* user.cat - user catalog /* volume - volume serial of dataset /* /* (-- For Rocket Support only: filename=M204CATP --) /* // OPTION NODUMP // DLBL IJSYSUC,'user.cat',,VSAM // DLBL M204LIB,'M204LIB.V770.LIBRARY',,VSAM // EXEC IDCAMS,SIZE=AUTO DEFINE CLUSTER ( - NAME (M204LIB.V770.LIBRARY ) - TRACKS (1200 100 ) - SHAREOPTIONS (3) - RECORDFORMAT (NOCIFORMAT ) - VOLUMES (volume) - NOREUSE - NONINDEXED - TO (99366)) - DATA (NAME (M204LIB.V770.LIBRARY.@D@ ) ) LISTC ENT (M204LIB.V770.LIBRARY ) ALL /* // EXEC LIBR DEFINE LIB=M204LIB /* REPLACE=YES */ DEFINE SUBLIB=M204LIB.V770 REUSE=IMMEDIATE DEFINE SUBLIB=M204LIB.J770 REUSE=IMMEDIATE ACCESS S=IJSYSRS.SYSLIB CATALOG M204JCL.PROC REPLACE=YES * M204JCL PROC: ACCESS THE M204 JCL SUBLIB // DLBL IJSYSUC,'user.cat',,VSAM // DLBL M204LIB,'M204LIB.V770.LIBRARY',,VSAM,CAT=IJSYSUC /+ ACCESS S=M204LIB.V770 CATALOG M204V770.PROC REPLACE=YES * M204V770 PROC: ACCESS THE M204 SUBLIBS // DLBL M204LIB,'M204LIB.V770.LIBRARY',,VSAM /+ /* /&