z/OS JCL Tutorial Workshop 4.1

Exercise 1 - Sample Solution

The Job Control listed below is a possible solution to this exercise. There may be other possibilities so it cannot be offered as a definitive solution.

On the KMS-IT system output class X is the held output class viewable with SDSF. This is the reason for the inclusion of MSGCLASS=X on the JOB statement.

//OPSSTU11 JOB  ,'C HADDOCK',CLASS=A,MSGCLASS=X,
//             REGION=4M,NOTIFY=OPSSTU1
//S0010    EXEC PGM=IEBUPDTE,PARM=MOD
//SYSPRINT DD   SYSOUT=*
//SYSUT1   DD   DSN=OPSSTU1.JCL.CNTL,DISP=SHR
//SYSUT2   DD   DSN=OPSSTU1.JCL.CNTL,DISP=SHR
//SYSIN    DD   * 
./ ADD NAME=GDGBASE
 DEFINE GDG(NAME(userid.MASTER) LIMIT(4) SCRATCH)
./ ADD NAME=KSDSDATA
 DSD OUTPUT=(SYSUT2)
 FD NAME=A,LENGTH=6,FORMAT=ZD,INDEX=1
 FD NAME=B,LENGTH=74,FORMAT=AL,ACTION=RP
 CREATE QUANTITY=100,NAME=(A,B)
 END
./ ADD NAME=RIPPLE
 DSD OUTPUT=(SYSUT2)
 FD NAME=A,LENGTH=80,FORMAT=AL,ACTION=RP
 CREATE QUANTITY=100,NAME=A
 END
./ ADD NAME=ODDS
 DSD OUTPUT=(SYSUT2)
 FD NAME=A,LENGTH=6,STARTLOC=1,PICTURE=6,P’000000’,INDEX=2
 FD NAME=B,LENGTH=74,FORMAT=AL,ACTION=RP
 CREATE QUANTITY=100,NAME=(A,B)
 END
./ ADD NAME=EVENS
 DSD OUTPUT=(SYSUT2)
 FD NAME=A,LENGTH=6,STARTLOC=1,PICTURE=6,P’000001’,INDEX=2
 FD NAME=B,LENGTH=74,FORMAT=AL,ACTION=RP
 CREATE QUANTITY=100,NAME=(A,B)
 END