//DTSRQ721 JOB (UI,4300,3400,T),PROD.BE720,
//         CLASS=A,MSGCLASS=X,
//         NOTIFY=ECNTZL1,
//****     TYPRUN=SCAN,
//         USER=#DOADTS,
//         REGION=0M
//*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//**
//   SET TPSYRQ='DUMMY'   <<<< LEAVE ASIS FOR THIS JOB
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//   SET   LHOLD='YES'
//**
//*  ON REQUEST REPORT DTSBR721 -                                 *
//*      DB/BILLINGS  SI   EMPLYRS (REIMBURSEMENTS)
//*      (RPT721)
//**
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//**                      NO BACKUP NEEDED BEFORE THIS REPORT
//**
//**DD01   DD  DSN=DOESTAX.&MSTNODE..PER.RPT(+0)
//**           PER FILE FROM JOB DTSRQ433
//**
//STEP0100 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDD01   DD  DSN=DOESTAX.&MSTNODE..PER.RPT(+0),DISP=SHR
//INDD02   DD  DSN=&&RPT433,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD *
  REPRO INFILE(INDD01) OUTFILE(INDD02)
/*
//***************************************************************
//*
//STEP0200 EXEC PGM=DTSBE721,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFVRI1 DD  DSN=&&RPT433,
//             DISP=(OLD,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//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
//STEP0100.RPT715R1 DD DUMMY
//STEP0100.RPT716R1 DD DUMMY
//STEP0100.RPT717R1 DD DUMMY
//STEP0100.RPT718R1 DD DUMMY
//STEP0100.RPT719R1 DD DUMMY
//STEP0100.RPT722R1 DD DUMMY
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200
//*