The sample z/OS JCL shown below in Figures 5.7a and 5.7b deletes any previous files and then allocates space for the general files and index files. Target or Distribution source library member USAEXEC contains similar sample JCL. The key to the variables (shown in bold) is shown in Figures 5.8a and 5.8b.
//* OPTIONAL: SAMPLE JCL TO DELETE
//* PREVIOUSLY CREATED FILES //* //DELETE EXEC PGM=IEFBR14 //EXTRACTS DD DSN=dbaudit.extract, // DISP=(MOD,DELETE)' // UNIT=disk, // SPACE=(TRK,0) //WORKFILE DD DSN=dbaudit.workfile, // DISP=(MOD,DELETE), // UNIT=disk, // SPACE=(TRK,0) //DBKYWORK DD DSN=dbaudit.dbkywork, // DISP=(MOD,DELETE), // UNIT=disk, // SPACE=(TRK,0) //INDXEXTR DD DSN=dbaudit.indxextr // DISP=(MOD,DELETE), // UNIT=disk, // SPACE=(TRK,0) //INDXWORK DD DSN=dbaudit.indxwork, // DISP=(MOD,DELETE), // UNIT=disk, // SPACE=(TRK,0) //* ALLOCATING GENERAL FILES //* //ALLOCATE EXEC PGM=IEFBR14 //EXTRACTS DD DSN=dbaudit.extract, // DISP=(,CATLG,DELETE), // VOL=SER=volser, // UNIT=disk, // SPACE=(CYL,(pe,se)), // DCB=BLKSIZE=blkse //WORKFILE DD DSN=dbaudit.workfile, // DISP=(,CATLG,DELETE), // VOL=SER=volser, // UNIT=disk, // SPACE=(CYL,(pw,sw)), // DCB=BLKSIZE=blkse
Figure 5.7a: z/OS JCL for Allocating Files
//* ALLOCATING INDEX FILES
//* //DBKYWORK DD DSN=dbaudit.dbkywork, // DISP=(,CATLG,DELETE), // VOL=SER=volser, // UNIT=disk, // SPACE=(CYL,(pd,sd)), // DCB=BLKSIZE=blksd //INDXEXTR DD DSN=dbaudit.indxextr, // DISP=(,CATLG,DELETE), // VOL=SER=volser, // UNIT=disk, // SPACE=(CYL,(pi,si)), // DCB=BLKSIZE=blksi //INDXWORK DD DSN=dbaudit,indxwork, // DISP=(,CATLG,DELETE), // VOL=SER=volser, // UNIT=disk, // SPACE=(CYL,(pi,si)), // DCB=BLKSIZE=blksi
Figure 5.7b: z/OS JCL for Allocating Files
//* OPTIONAL: SAMPLE JCL TO DELETE & ALLOCATE //* THE 2 DIRECT ACCESS FILES AS BDAM //* //DELETE2 EXEC PGM=IEFBR14 //DBKHASH DD DSN=dbaudit.dbkhash, // DISP=(MOD,DELETE), // UNIT=disk, // SPACE=(TRK,0), //DBKSAVE DD DSN=dbaudit.dbksave, // DISP=(MOD,DELETE), // UNIT=disk, // SPACE=(TRK,0), //ALLOCAT2 EXEC PGM=IEFBR14 //DBKHASH DD DSN=dbaudit.dbkhash, // DISP=(CATLG,DELETE), // VOL=SER=volser, // UNIT=disk,SPACE=(4084,(blkcnt.hash)), // DCB=DSORG=DA //DBKSAVE DD DSN=dbaudit.dbksave, // DISP=(CATLG,DELETE), // VOL=SER=volser, // UNIT=disk,SPACE=(4064,(blkcnt.save)), // DCB=DSORG=DA
Figure 5.7c: z/OS JCL for Allocating Files
|
Copyright © 2013 CA.
All rights reserved.
|
|