DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSTP722

@@ -0,0 +1,82 @@
+//**
+//*  TPS REPORT CREDITS/REFUNDS (RATED)
+//*                       (CS043 RECORDS IN RPT722 FROM DTSRQ722)
+//**
+//DTSTP722 PROC
+//**                                   CREATE THE TPS CONTROL RECORD
+//STEP0100 EXEC  PGM=DTSBER43
+//SYSOUT   DD  SYSOUT=*
+//CEEDUMP  DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//PARMIN   DD  DUMMY
+//FILEIN   DD  DSN=&TPSFILE1.,
+//            DISP=(OLD,PASS,KEEP)
+//CNTRFILE DD  DSN=&&CNTL,DISP=(NEW,PASS,DELETE),
+//             UNIT=SYSDA,SPACE=(TRK,(1,1)),
+//             DCB=(RECFM=FB,LRECL=33,BLKSIZE=33)
+//**
+//**                                   DEFINE THE VSAM WORK FILE
+//STEP0200 EXEC PGM=IDCAMS,
+//            COND=(0,LT)
+//SYSPRINT DD  SYSOUT=*
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR43A),
+//            DISP=SHR
+//**                                   POPULATE THE VSAM FILE
+//STEP0300 EXEC PGM=IDCAMS,                                             00000030
+//            COND=(0,LT)                                               00000030
+//SYSPRINT DD  SYSOUT=*                                                 00000040
+//INDD01   DD  DSN=&TPSFILE1.,
+//            DISP=(OLD,KEEP,KEEP)
+//OUTDD01  DD  DSN=DOESTAX.&LVLNODE..VSAM.CS043,
+//            DISP=SHR
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),             00000070
+//            DISP=SHR                                                  00000070
+//**
+//**                     SELECT RANDOM SAMPLE RELATIVE RECORD NUMBERS
+//STEP0400 EXEC PGM=PICKNMBR,
+//            COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SYSPRINT DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//CNTRLDTA DD  DSN=&&CNTL,DISP=(OLD,PASS,DELETE)
+//SELNMBR  DD  DSN=&&SELNMBR,DISP=(NEW,PASS,DELETE),
+//             UNIT=SYSDA,
+//             DCB=(RECFM=FB,LRECL=8,BLKSIZE=400),
+//             SPACE=(TRK,(20,5),RLSE)
+//PICKLST  DD  SYSOUT=*
+//*            DEST=&LDEST.
+//**
+//**                   SELECT THE SAMPLE FROM THE TRANSACTION RECORDS
+//STEP0500 EXEC PGM=SAMPS043,
+//            COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SYSPRINT DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//MSGOUT   DD  SYSOUT=*
+//CNTRLDTA DD  DSN=&&CNTL,DISP=(OLD,DELETE,DELETE)
+//DISKUNIT DD  DSN=DOESTAX.&LVLNODE..VSAM.CS043,DISP=SHR
+//HITFILE  DD  SYSOUT=*
+//SLCTREC  DD  DSN=&&SELNMBR,DISP=(OLD,DELETE,DELETE)
+//*RINTER  DD  SYSOUT=Q,
+//*            DEST=&LDEST.
+//PRINTER  DD  DSN=&PRINTER1.,
+//             DISP=(NEW,CATLG,DELETE),
+//*            DISP=(OLD,KEEP,KEEP),
+//             UNIT=SYSDA,
+//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),
+//             SPACE=(TRK,(1,1),RLSE)
+//EXPTPS22 DD  DSN=ECNTSUP.DOESTAX.PROD.EXPTPS22,
+//             DISP=(OLD,KEEP,KEEP),
+//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=4800),
+//             SPACE=(TRK,(2,2),RLSE)
+//CHECK    DD  SYSOUT=*
+//**           DEST=&LDEST.
+//**
+//**                                     DELETE THE VSAM WORK FILE
+//STEP0600 EXEC    PGM=IDCAMS,                                          00000030
+//            COND=(0,LT)                                               00000030
+//SYSPRINT DD  SYSOUT=*                                                 00000040
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR43B),            00000070
+//            DISP=SHR                                                  00000070
+//**