Previous Topic: 1. Allocating Work Files for the DISK OptionNext Topic: Key to Sample z/OS JCL for Allocating Files


2. Allocating Files

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