Template:VSE M204CATP: Difference between revisions

From m204wiki
Jump to navigation Jump to search
(Automatically generated page update)
(Automatically generated page update)
 
(One intermediate revision by the same user not shown)
Line 3: Line 3:
You've been warned.-->
You've been warned.-->
<p class="code"><nowiki>// JOB M204CATP
<p class="code"><nowiki>// JOB M204CATP
* ********************************************************************
*                          Rocket Model 204
*                                05/15
* ********************************************************************
/* M204CATP allocates VSAM managed space for the Model 204
/* M204CATP allocates VSAM managed space for the Model 204
/*          library, defines the sublibraries and catalogs
/*          library, defines the sublibraries and catalogs
Line 16: Line 12:
/*    user.cat - user catalog
/*    user.cat - user catalog
/*    volume - volume serial of dataset
/*    volume - volume serial of dataset
/*
/* (-- For Rocket Support only: filename=M204CATP 7.7 2016/11/14 --)
/*
/*
// OPTION NODUMP
// OPTION NODUMP
// DLBL IJSYSUC,'user.cat',,VSAM
// DLBL IJSYSUC,'user.cat',,VSAM
// DLBL M204LIB,'M204LIB.V750.LIBRARY',,VSAM
// DLBL M204LIB,'M204LIB.V770.LIBRARY',,VSAM
// EXEC IDCAMS,SIZE=AUTO
// EXEC IDCAMS,SIZE=AUTO
     DEFINE CLUSTER ( -
     DEFINE CLUSTER ( -
         NAME (M204LIB.V750.LIBRARY    ) -
         NAME (M204LIB.V770.LIBRARY    ) -
         TRACKS      (1200 100  ) -
         TRACKS      (1200 100  ) -
         SHAREOPTIONS (3) -
         SHAREOPTIONS (3) -
Line 30: Line 28:
         NONINDEXED -
         NONINDEXED -
         TO (99366)) -
         TO (99366)) -
         DATA (NAME (M204LIB.V750.LIBRARY.@D@  ) )
         DATA (NAME (M204LIB.V770.LIBRARY.@D@  ) )


     LISTC ENT (M204LIB.V750.LIBRARY        )  ALL
     LISTC ENT (M204LIB.V770.LIBRARY        )  ALL
/*
/*
// EXEC LIBR
// EXEC LIBR
   DEFINE  LIB=M204LIB        /* REPLACE=YES */
   DEFINE  LIB=M204LIB        /* REPLACE=YES */
   DEFINE  SUBLIB=M204LIB.V750     REUSE=IMMEDIATE
   DEFINE  SUBLIB=M204LIB.V770     REUSE=IMMEDIATE
   DEFINE  SUBLIB=M204LIB.J750     REUSE=IMMEDIATE
   DEFINE  SUBLIB=M204LIB.J770     REUSE=IMMEDIATE


   ACCESS S=IJSYSRS.SYSLIB
   ACCESS S=IJSYSRS.SYSLIB
Line 43: Line 41:
*  M204JCL PROC: ACCESS THE M204 JCL SUBLIB
*  M204JCL PROC: ACCESS THE M204 JCL SUBLIB
// DLBL IJSYSUC,'user.cat',,VSAM
// DLBL IJSYSUC,'user.cat',,VSAM
// DLBL M204LIB,'M204LIB.V750.LIBRARY',,VSAM,CAT=IJSYSUC
// DLBL M204LIB,'M204LIB.V770.LIBRARY',,VSAM,CAT=IJSYSUC
/+
/+
         ACCESS S=M204LIB.V750
         ACCESS S=M204LIB.V770
   CATALOG M204V750.PROC REPLACE=YES
   CATALOG M204V770.PROC REPLACE=YES
M204V750 PROC: ACCESS THE M204 SUBLIBS
M204V770 PROC: ACCESS THE M204 SUBLIBS
// DLBL M204LIB,'M204LIB.V750.LIBRARY',,VSAM
// DLBL M204LIB,'M204LIB.V770.LIBRARY',,VSAM
/+
/+
/*
/*
/&
/&
</nowiki></p>
</nowiki></p>

Latest revision as of 21:29, 14 November 2016

// JOB M204CATP /* 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 7.7 2016/11/14 --) /* // 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 /+ /* /&