JCL example

//*********************************************************************
//* DAILY PLANNING - PLAN A TRIAL PERIOD
//*********************************************************************
//EQQDTTOP EXEC PGM=EQQBATCH,PARM='EQQDTTOP',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=*
//EQQDMSG  DD SYSOUT=*
//EQQDUMP  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
//EQQADDS  DD DISP=SHR,DSN=EID.EIDA.AD 
//EQQLTDS  DD DISP=SHR,DSN=EID.EIDAR3.LT
//EQQCP1DS DD DISP=SHR,DSN=EID.EIDAR3.CP1
//EQQCP2DS DD DISP=SHR,DSN=EID.EIDAR3.CP2
//EQQNCPDS DD DISP=SHR,DSN=EID.EIDAR3.NCP
//EQQJTARC DD DISP=SHR,DSN=EID.EIDA.JTARC
//EQQCKPT  DD DISP=SHR,DSN=EID.EIDA.CKPT
/*
//SYSIN    DD *
950505083902400     F11101010
//* = PLSTRTTIMEPLENDTIME TREPORTS
//* 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
//* TYPE OF TRIAL PLAN (T) = REQUESTED TYPE (C=REPLAN,N=NEXT,F=FUTURE)
//* REPORTS(ABCDEFGH)      = REQUESTED REPORTS (1/0)
//*                          A = WORKSTATION SUMMARY
//*                          B = DAILY OPERATING PLANS
//*                          C = WORKSTATION PLANS
//*                          D = NOT USED ALWAYS 0
//*                          E = NONREPORTING WORKSTATIONS
//*                          F = NOT USED ALWAYS 0
//*                          G = PLANNED RESOURCE UTILIZATION
//*                          H = NOT USED ALWAYS 0
//*********************************************************************
//* 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 *
//*