JCL Standards

Sample JCL

What follows is the JCLSKEL example available in the ISP14 Panvalet library:

//JOBNAME  JOB   (AB123,36),PRODCTL,MSGLEVEL=1,USER=AUP00ZZ,
//         TIME=(9,59),TAPES=0,MSGCLASS=R
//JCLLIB   JCLLIB ORDER=PCP40.PROC.CNTL
/*JOBPARM  LINES=250
/*ROUTE    PRINT LOCAL
//PCROUTE  INCLUDE MEMBER=PCROUTE
//RPT1     OUTPUT FORMS=6205,FCB=STD1,DEST=LOCAL,COPIES=1

//*********************************************************************
//*****    JOBNAME:   JOB DESCRIPTION
//*********************************************************************
//*****    STEPA:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXA  EXEC  EASYPLUS,ACCOUNT=PCP40,VER=PROD,TBLVER=PROD
//XXXXXX   DD    DSN=XXXXXXXXXXX,DISP=SHR
//YYYYYY   DD    DSN=XXXXXXXXXXX,
//         UNIT=DISK,
//         DISP=(NEW,CATLG),
//         SPACE=(TRK,(100,50),RLSE),
//         LABEL=EXPDT=99365
//PRTFL01  DD    SYSOUT=A,OUTPUT=*.RPT1
//SYSIN    DD    * 
  %PGMNAME OPTIONS
/*
//*********************************************************************
//*****    STEPB:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXB  EXEC  GO,MEMBER=XXXXXX,VER=PROD,TBLVER=PROD,
//         COND=(0,NE)
//YYYYYY   DD    DSN=XXXXXXXXXXX,
//         UNIT=DISK,
//         DISP=(NEW,CATLG),
//         SPACE=(TRK,(100,50),RLSE),
//         LABEL=EXPDT=99365,
//         DCB=(RECFM=FB,LRECL=XX,BLKSIZE=XXXX)
//PRINTDD  DD    SYSOUT=A,OUTPUT=*.RPT1
/*
//*********************************************************************
//*****    STEPC:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXC  EXEC  EASYIS,ACCOUNT=PCP40,VER=PROD,TBLVER=PROD,
//         COND=(0,NE)
//SYSPRINT DD    SYSOUT=A,OUTPUT=*.RPT1
//FILEA    DD    DSN=XXXXXXXXXXX,DISP=SHR
//YYYYYY   DD    DSN=XXXXXXXXXXX,
//         UNIT=DISK,
//         DISP=(NEW,CATLG),
//         SPACE=(TRK,(100,50),RLSE),
//         LABEL=EXPDT=99365
//SYSIN    DD    *
  INCLUDE  PGMNAME OPTIONS
/*
//*********************************************************************
//*****    STEPD:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXD  EXEC  TAPECOPY,
//         COND=(0,NE)
//OLDFILE  DD    DSN=XXXXXXXXXXX,DISP=SHR
//NEWFILE  DD    DSN=XXXXXXXXXXX,
//         UNIT=TAPE,
//         DISP=(NEW,CATLG),
//         DCB=(RECFM=FB,LRECL=XX,BLKSIZE=XXXX)
/*
//*********************************************************************
//*****    STEPE:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXE  EXEC  ZAP,
//         COND=(0,NE)
//SYSIN    DD    *
   XXXXX.XXX.XXXX.XXXXXX
//*XXXXX.XXX.XXXX.XXXXXX
/*
//*********************************************************************
//*****    STEPF:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXF  EXEC  GO,MEMBER=IEBGENER,
//         COND=(0,NE)
//SYSIN    DD    DUMMY
//SYSUT1   DD    DSN=XXXXXXXXXXX,DISP=SHR
//SYSUT2   DD    SYSOUT=A
/*
//*********************************************************************
//*****    STEPG:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXG  EXEC  GO,MEMBER=IDCAMS,
//         COND=(0,NE)
//SYSIN    DD    DSN=DAP61.TEST.CLUSTER(XXXXXX),DISP=SHR
/*
//*********************************************************************
//*****    STEPH:     JOBSTEP DESCRIPTION
//*********************************************************************
//XXXXXXH  EXEC  PAN#1,ACCOUNT=ISP14,
//         COND=(0,NE)
//PANDD2   DD    DSN=&&TEMP01,
//         UNIT=SYSDA,
//         DISP=(NEW,PASS),
//         SPACE=(TRK,(50,25)),
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SYSIN    DD    *
++WRITE,WORK     XXXXXXXX
/*
//
Last Modified: