//*********************************************************************
//* 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 *
//*