JCL example

//*********************************************************************
//* DAILY PLANNING - PLAN NEXT PERIOD
//*********************************************************************
//DNTOP    EXEC PGM=EQQBATCH,PARM='EQQDNTOP',REGION=4096K
//STEPLIB  DD DISP=SHR,DSN=OPCDEV.TEST.APFLIB
//EQQMLIB  DD DISP=SHR,DSN=OPCDEV.TEST.MSGS
//EQQPARM  DD DISP=SHR,DSN=EID.EIDA.PARM(EIDA)
//EQQDIN   DD DSN=&&A,DISP=(NEW,PASS),
//         DCB=(RECFM=FB,LRECL=558,BLKSIZE=5580),
//         SPACE=(CYL,(3,1)),UNIT=3390
//DX12IN   DD DCB=(RECFM=FB,LRECL=90,BLKSIZE=6300),
//         SPACE=(4620,(300,300)),UNIT=3390
//DX12OUT  DD DCB=(RECFM=FB,LRECL=90,BLKSIZE=6300),
//         SPACE=(4620,(300,300)),UNIT=3390
//EQQTROUT DD DUMMY,DCB=BLKSIZE=100
//*           -----             ---
//*  CHANGE WHEN  TRACKLOG IS TO BE SAVED
//*  DISP=MOD MUST BE SPECIFIED
//*  DCB PARAMETERS MUST BE DEFINED IN DD STATEMENT:
//*  LRECL=32000 RECFM=VBS
//*********************************************************************
//EQQMLOG  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//EQQDUMP  DD SYSOUT=*
//EQQDMSG  DD SYSOUT=*
//SYSMDUMP DD DISP=MOD,DSN=EID.EIDA.SYSDUMPB
//EQQWSDS  DD DISP=SHR,DSN=EID.EIDAR3.WS
//EQQADDS  DD DISP=SHR,DSN=EID.EIDAR3.AD
//EQQRDDS  DD DISP=SHR,DSN=EID.EIDAR3.RD
//EQQLTDS  DD DISP=SHR,DSN=EID.EIDAR3.LT
//EQQLTBKP DD DISP=SHR,DSN=EID.EIDAR3.LB
//EQQCP1DS DD DISP=SHR,DSN=EID.EIDAR3.CP1
//EQQCP2DS DD DISP=SHR,DSN=EID.EIDAR3.CP2
//EQQSCPDS DD DISP=SHR,DSN=EID.EIDAR3.SCP 
//EQQNCPDS DD DISP=SHR,DSN=EID.EIDAR3.NCP
//EQQNCXDS DD DISP=SHR,DSN=EID.EIDAR3.NCX
//EQQCXDS  DD DISP=SHR,DSN=EID.EIDAR3.CX
//EQQJTARC DD DISP=SHR,DSN=EID.EIDA.JTARC
//EQQCKPT  DD DISP=SHR,DSN=EID.EIDA.CKPT
//EQQFLEX  DD DISP=SHR,DSN=EID.EIDA.FLEX
//SYSIN    DD *

          02400     11111111
//* = PLSTRTTIMEPLENDTIME REPORTS
//* PLSTRTTIME(YYMMDDHHMM) = PLAN START DATE,TIME IF REFRESH
//* PLENDTIME (YYMMDDHHMM) = PLAN END TIME
//*           (HHHMM     ) = PLAN EXTENSION IN HOURS AND MINUTES
//*                                         COUNTING ALL DAYS
//*           (HHHMMW    ) = PLAN EXTENSION IN HOURS AND MINUTES
//*                                         COUNTING ONLY WORK DAYS
//* REPORTS(ABCDEFGH)      = REQUESTED REPORTS (1/0)
//*                          A = WORKSTATION SUMMARY
//*                          B = DAILY OPERATING PLANS
//*                          C = WORKSTATION PLANS
//*                          D = WORKSTATION INPUT ARRIVAL LISTS
//*                          E = NONREPORTING WORKSTATIONS
//*                          F = PREVIOUS PERIOD RESULTS
//*                          G = PLANNED RESOURCE UTILIZATION
//*                          H = ACTUAL RESOURCE UTILIZATION
/*
//*********************************************************************
//* STEP2 DAILY PLAN - SORT OF REPORT RECORDS
//*********************************************************************
//*
//SORT     EXEC PGM=SORT,REGION=4096K,TIME=1440,COND=(8,LT)
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&&A,DISP=(OLD,DELETE)
//SORTOUT  DD DISP=(NEW,PASS),
//         DCB=(RECFM=FB,LRECL=558,BLKSIZE=5580),
//         SPACE=(CYL,(3,1)),UNIT=3390
//SORTWK01 DD DISP=(NEW,DELETE),
//         DCB=(RECFM=FB,LRECL=558,BLKSIZE=5580),
//         SPACE=(CYL,(3,1)),UNIT=3390
//SORTWK02 DD DISP=(NEW,DELETE),
//         DCB=(RECFM=FB,LRECL=558,BLKSIZE=5580),
//         SPACE=(CYL,(3,1)),UNIT=3390
//SORTWK03 DD DISP=(NEW,DELETE),
//         DCB=(RECFM=FB,LRECL=558,BLKSIZE=5580),
//         SPACE=(CYL,(3,1)),UNIT=3390
//SYSIN    DD *
      SORT FIELDS=(1,130,CH,A)
/*
//*********************************************************************
//* STEP3 DAILY PLAN - PLAN NEXT PRINT THE REPORTS
//*********************************************************************
/*
//DPREPORT EXEC PGM=EQQBATCH,PARM='EQQDPRPT',COND=(8,LT),
//         REGION=4096K
//STEPLIB  DD DISP=SHR,DSN=OPCDEV.TEST.APFLIB
//EQQMLIB  DD DISP=SHR,DSN=OPCDEV.TEST.MSGS
//EQQPARM  DD DISP=SHR,DSN=EID.EIDA.PARM(EIDA)
//SYSPRINT DD SYSOUT=*,
//         DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6050)
//EQQMLOG  DD SYSOUT=*
//SYSMDUMP DD DISP=MOD,DSN=EID.EIDA.SYSDUMPB
//EQQDUMP  DD SYSOUT=*
//EQQDMSG  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//EQQPOUT  DD DSN=*.SORT.SORTOUT,DISP=(OLD,DELETE)
//SYSIN    DD *
//*