//*********************************************************************
//* DAILY PLANNING - PRINT CURRENT PERIOD RESULTS
//*********************************************************************
//DOTOP EXEC PGM=EQQBATCH,PARM='EQQDOTOP',REGION=4096K
//STEPLIB DD DISP=SHR,DSN=OPCDEV.TEST.APFLIB
//EQQMLIB DD DISP=SHR,DSN=OPCTEST.ESA131.SEQQMSG0
//EQQPARM DD DISP=SHR,DSN=EID.EIDA.PARM(EIDA)
//SYSPRINT DD SYSOUT=*
//EQQMLOG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//EQQDMSG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//SYSMDUMP DD DSN=EID.EIDA.SYSDUMPB,DISP=MOD
//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
//EQQCP1DS DD DSN=EID.EIDAR3.CP1,DISP=SHR
//EQQCP2DS DD DSN=EID.EIDAR3.CP2,DISP=SHR
//EQQXD1DS DD DSN=EID.EIDAR3.XD1,DISP=SHR
//EQQXD2DS DD DSN=EID.EIDAR3.XD2,DISP=SHR
//EQQCKPT DD DSN=EID.EIDA.CKPT,DISP=SHR
//SYSIN DD *
95061012009506111600
//* = PLSTRTTIMEPLENDTIME
//* PLSTRTTIME(YYMMDDHHMM) = PLAN START DATE,TIME IF REFRESH
//* PLENDTIME (YYMMDDHHMM) = PLAN END DATE,TIME/*
//*********************************************************************
//* 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=OPCTEST.ESA131.SEQQMSG0
//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 *
//*