//DTSRQ715 JOB (UI,4300,3400,T),PROD.RPT715,                            00000010
//         CLASS=P,MSGCLASS=X,                                          00000010
//         USER=#DOADTS,
//         NOTIFY=ECNTSUP,
//         REGION=0M
//*                                                                     00001700
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//   SET TPSYRQ='YR2025'    <<<< SET YEAR TO PREVIOUS YEAR (OUT FILE)
//   SET   LHOLD='YES'
//*                                                                     00001700
//*******************************************************************
//*    ON REQUEST REPORT DTSBX715 -
//*               CREATE TPS STATUS DETERMINATION RECORDS
//****
//****  INPUT FILE IS CREATED BY ETA581 PROGRAM BE770
//****  NEED TO COMBINE ALL 4 QTRS TPS.STATUS.QTR? BEFORE RUNNING ZL1
//*******************************************************************
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//*****************************************************************
//STEP0101 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..TPS.STATUS.&TPSYRQ.,
//             DISP=(,CATLG,DELETE),
//*            DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5),RLSE),
//             DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//INDD01   DD DSN=DOESTAX.PROD.TPS.STATUS.QTR1,DISP=SHR
//         DD DSN=DOESTAX.PROD.TPS.STATUS.QTR2,DISP=SHR
//         DD DSN=DOESTAX.PROD.TPS.STATUS.QTR3,DISP=SHR
//         DD DSN=DOESTAX.PROD.TPS.STATUS.QTR4,DISP=SHR
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//*                                                                     00001700
//STEP0300 EXEC PGM=DTSBX715,     /* TPS
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//TPSSTAT  DD  DSN=DOESTAX.&LVLNODE..TPS.STATUS.&TPSYRQ.,
//*            DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             SPACE=(CYL,(5,5),RLSE),
//             DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(16394,(900,900),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*                        REPORT GENERATION
//STEP0300 EXEC DTSTPRPT
//*TEP0100.RPT715R1 DD DISP=SHR
//STEP0100.RPT716R1 DD DUMMY
//STEP0100.RPT717R1 DD DUMMY
//STEP0100.RPT718R1 DD DUMMY
//STEP0100.RPT719R1 DD DUMMY
//STEP0100.RPT720R1 DD DUMMY
//STEP0100.RPT720R2 DD DUMMY
//STEP0100.RPT722R1 DD DUMMY
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS
//*
//**********************************************************************01190000