DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ721.jcl

@@ -0,0 +1,71 @@
+//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
+//*