JCL Workshop 5.3 Sample Solution

Various parts of the JCL statements are selectable and when selected will open windows offering explanations of the various items, and keywords.

Creating the Base GDG Entry.

//OPSSTU1G JOB  ,'T-R-S',CLASS=A,MSGCLASS=X,REGION=4M,
//             NOTIFY=OPSSTU1
//S0010    EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN DD *
 DEFINE GDG(NAME(OPSSTU1.MASTER) LIMIT(4) SCRATCH)

Creating the first data set in the GDG.

//OPSSTU14 JOB  ,'T-R-S',CLASS=A,MSGCLASS=X,REGION=4M,
//             NOTIFY=OPSSTU1
//S0010    EXEC PGM=IEBDG
//SYSPRINT DD   SYSOUT=*
//SYSUT2   DD   DSN=OPSSTU1.MASTER(+1),DISP=(,CATLG,DELETE),  
//             BLKSIZE=6400,LRECL=80,RECFM=FB,
//             SPACE=(6400,(1,1)),UNIT=SYSDA
//SYSIN DD *
  DSD OUTPUT=(SYSUT2) 
  FD  NAME=A,LENGTH=80,FORMAT=AL,ACTION=RP
  CREATE QUANTITY=100,NAME=A
  END

Note That the above example assumes that the GDG is being created in a System Managed Storage environment, as no model Data Set Control Block (DSCB) has been provided via the DCB parameter.