DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSRQ602

@@ -0,0 +1,102 @@
+//*****
+//**       REPORT GENERATION FOR AUDIT ASSIGNMENT (DTSRQ602)
+//*****
+//DTSRQ602  PROC  LDEST='U@PRT155',
+//         LVDHOLD='YES'
+//****                      /*  GEN A DUMMY RECORD FOR THE LABELS FILE  00001702
+//DOESLBL1 EXEC PGM=IEBDG,                                              00001806
+//         COND=(0,LT)                                                  00001906
+//SYSPRINT DD SYSOUT=*                                                  00002006
+//LBLOUT  DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),                       00002106
+//           UNIT=SYSDA,                                                00002206
+//           SPACE=(TRK,1),                                             00002306
+//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                     00002406
+//SYSIN  DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01),                         00002506
+//          DISP=SHR                                                    00002606
+//****                      /* POPULATE THE LABELS WORK FILE            00003105
+//DOESLBL2 EXEC PGM=IDCAMS,                                             00003206
+//         COND=(0,LT)                                                  00003306
+//SYSPRINT DD SYSOUT=*                                                  00003405
+//FILEIN   DD DSN=&&TMP901,                                             00003505
+//            DISP=(OLD,DELETE,DELETE),                                 00003605
+//            UNIT=SYSDA                                                00003705
+//DOESVRO1 DD  DSN=&&LBL901,                                            00003805
+//             DISP=(NEW,PASS,DELETE),                                  00003905
+//             UNIT=SYSDA,                                              00004005
+//             SPACE=(8192,(1000,1000),RLSE),                           00004105
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00004205
+//SYSIN  DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02),                    00004305
+//          DISP=SHR                                                    00004405
+//**                                                                    00004705
+//STEP0100 EXEC PGM=DTSBD800,                        OUTPUT GENERATION
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSUDUMP DD  SYSOUT=*
+//**
+//PARMIN   DD  DUMMY
+//**
+//ATLSTIN  DD  DUMMY
+//**
+//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
+//**
+//DOESVRO1 DD  DSN=&&LBL901,DISP=(OLD,PASS,DELETE)                      00100001
+//**                                                                    00100100
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//**                                                                    00100100
+//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//**
+//**                           AUDIT SELECTION CRITERIA
+//RPT602R1 DD  SYSOUT=0
+//**                           AUDIT CANDIDATES LIST
+//RPT602R2 DD  SYSOUT=0
+//**                           AUDIT CANDIDATES SELF MAILERS
+//RPT602R3 DD  SYSOUT=W,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//**                           AUDIT MFAS FLAT FILE
+//RPT602F3 DD  DSN=DOESTAX.PROD.AUDIT.F602,
+//             DISP=(OLD,KEEP,KEEP),
+//**           DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(CYL,(30,10),RLSE),
+//             DCB=(RECFM=FB,LRECL=1064,BLKSIZE=21280)
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//RPT907R1 DD  SYSOUT=Z,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//**                           UNUSUAL CONDITIONS ENCOUNTERED REPORT
+//RPT907R2 DD  SYSOUT=Z,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//RPT909R1 DD  SYSOUT=W,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//RPT909R2 DD  SYSOUT=W,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//RPT909R3 DD  SYSOUT=W,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//RPT909R4 DD  SYSOUT=W,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//RPT909R5 DD  SYSOUT=W,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//RPT909R6 DD  SYSOUT=W,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//RPT980R1 DD  SYSOUT=Q,HOLD=&LVDHOLD.,
+//             DEST=&LDEST.
+//**                           EXPORT CONTROL REPORTS
+//RPT991R1 DD  SYSOUT=Q,COPIES=2,
+//             DEST=&LDEST.
+//****
+//DOESLBLP EXEC PGM=DOESLABL,        /* PRINT DOES LABELS               00131001
+//             COND=(0,LT),                                             00140000
+//             REGION=4096K                                             00150000
+//DOESVRI1 DD  DSN=&&LBL901,                                            00150101
+//             DISP=(OLD,DELETE,DELETE)                                 00150201
+//SYSOUT   DD  SYSOUT=*                                                 00151000
+//SYSABOUT DD  SYSOUT=*                                                 00152000
+//SYSABEND DD  SYSOUT=*                                                 00153000
+//CAIMRPTS DD  SYSOUT=*                                                 00154000
+//DOESLBL1 DD  SYSOUT=(C),                                              00155101
+//             FCB=P104,                                                00155201
+//             DEST=&LDEST.,                                            00155302
+//             HOLD=&LVDHOLD.                                           00155403
+//**                                                                    00157001
+//**