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