Describes the status of the file at start, success, and abnormal termination (e.g., NEW , OLD , SHR , DELETE , KEEP ). Key Concepts for Advanced JCL Usage
Mainframes use Return Codes (RC) to report program success. An RC of 0 means success, while 8 or 12 usually means errors occurred. You can skip steps based on previous results.
//INPUT DD DSN=USER.DATA.INPUT,DISP=SHR //OUTPUT DD DSN=USER.DATA.OUTPUT,DISP=(NEW,CATLG), // SPACE=(TRK,(10,5)),DCB=(LRECL=80,RECFM=FB) Use code with caution. How to Find "The MVS JCL Primer" the mvs jcl primer pdf
Determines how the system handles a file before, during, and after a job ( OLD , SHR , MOD , NEW , DELETE , CATLG ). SPACE : Allocates disk space ( TRK vs CYL ).
A unique alphanumeric name (1 to 8 characters) starting in column 3. It identifies the job, step, or dataset. Describes the status of the file at start,
//MYJOB01 JOB (ACCT123),'SMITH',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID //*----------------------------------------------------------------* //* THIS IS A COMMENT LINE IN JCL * //*----------------------------------------------------------------* //STEP01 EXEC PGM=MYPROG,REGION=4M //STEPLIB DD DSN=PROD.LOADLIB,DISP=SHR //INFILE DD DSN=USER.DATA.INPUT,DISP=SHR //OUTFILE DD DSN=USER.DATA.OUTPUT, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0) //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* Use code with caution. Dissecting the Code:
//MYJOB JOB (12345),'SAMPLE JOB',CLASS=A //STEP1 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=A //SYSIN DD DUMMY //STEP2 EXEC PGM=MYPROC //MYPROC PROC //STEP3 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=A You can skip steps based on previous results
To maximize the benefits of "The MVS JCL Primer PDF", follow these tips:
(10,5) : Allocates 10 cylinders initially (Primary). If more space is needed, it grabs 5 cylinders at a time (Secondary) up to 15 times.