Code: Select all
//STEP1 EXEC PGM=IEFBR14
//PROGRAM DD DSN=PROGRAM.LOADLIB(COBOLPGM),DISP=SHR
//STEP2 EXEC PGM=*.STEP1.PROGRAM
Code: Select all
//STEP1 EXEC PGM=IEFBR14
//PROGRAM DD DSN=PROGRAM.LOADLIB(COBOLPGM),DISP=SHR
//STEP2 EXEC PGM=*.STEP1.PROGRAM
Back when punched cards were used, a null coded on distinctive colored cards was used to help operators separate card decks and so it helped to identify the end-of-job card, and the start of next job for the operators.
Code: Select all
RESTART=STEP05,COND=(0,LE)
Code: Select all
SUB .A .B
Code: Select all
//Job card
//SET PREFIX = MY.ID
//*
//COMPRESS EXEC PGM = IEBCOPY
//SYSUT1 DD DISP=SHR,DSN=&PREFIX.MY.PDS
//SYSUT2 DD DISP=SHR,DSN=&PREFIX.MY.PDS.BACKUP
//SYSPRINT DD SYSOUT = *
//SYSIN DD DUMMY
You need to be a member in order to post a reply
Not a member? register to join our community
Members can start their own topics & subscribe to topics
It’s free and only takes a minute