DUTAS re-platformed to Raincode - Initial Source Code

2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
--- a/JCL/DTSRQ761.jcl
+++ b/JCL/DTSRQ761.jcl
@ -0,0 +1,103 @@
+//DTSRQ761 JOB (UI,4300,3400,T),PROD.RQ761.JOBSERV,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTJP2,
+//****     TYPRUN=SCAN,
+//****     USER=#DOADTS,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
+//**
+//   SET LVLNODE='PROD'
+//   SET LHOLD='NO'
+//   SET LDEST=U@PRT65
+//****
+//*    ON REQUEST REPORT(S) FOR JOB SERVICE:
+//*          - DTSBR761 - MAILING LABEL EXTRACT
+//*          - DTSBR763 - NEW & REACTIVATED EMPLOYERS LIST
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//STEP0100 EXEC DTSUEXT
+//STEP0100.EXTPARM DD *
+761,4,R
+763
+/*
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//****                      /*  GEN A DUMMY RECORD FOR THE LABELS FILE  00001702
+//DOESLBL1 EXEC PGM=IEBDG,                                              00001801
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*                                                  00001900
+//LBLOUT  DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE),                       00002001
+//           UNIT=SYSDA,                                                00002100
+//           SPACE=(TRK,1),                                             00002202
+//           DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                     00002300
+//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01),               00002405
+//          DISP=SHR                                                    00002505
+//****                      /* POPULATE THE LABELS WORK FILE            00003105
+//DOESLBL2 EXEC PGM=IDCAMS,                                             00003205
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*                                                  00003305
+//FILEIN   DD DSN=&&TMP901,                                             00003405
+//            DISP=(OLD,DELETE,DELETE),                                 00003505
+//            UNIT=SYSDA                                                00003605
+//DOESVRO1 DD  DSN=&&LBL901,                                            00003705
+//             DISP=(NEW,PASS,DELETE),                                  00003805
+//             UNIT=SYSDA,                                              00003905
+//             SPACE=(8192,(1000,1000),RLSE),                           00004005
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)                   00004105
+//SYSIN  DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02),               00004205
+//          DISP=SHR                                                    00004305
+//****                                   /* REPORT GENERATION
+//STEP0300 EXEC PGM=DTSBD800,
+//             COND=(0,LT)
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSUDUMP DD  SYSOUT=*
+//**
+//PARMIN   DD  DUMMY
+//**
+//ATLSTIN  DD  DUMMY
+//**
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
+//**                                                                    00040001
+//DOESVRO1 DD  DSN=&&LBL901,DISP=(OLD,PASS,DELETE)                      00100001
+//**
+//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//*
+//*                                  JOB SERVICE REPORT
+//RPT763R1 DD  SYSOUT=Z,
+//             HOLD=&LHOLD.,
+//             DEST=U@PRT65
+//**                           NO LONGER PRODUCED THIS WAY (05.17.01)
+//**                                 REGULAR LABELS (DUMMY)
+//**RPT901R1 DD  SYSOUT=(C,,6662),FCB=P663,
+//**             HOLD=&LHOLD.,
+//**             DEST=LOCAL
+//*                                  JOB SERVICE LABELS
+//**RPT901R2 DD  SYSOUT=(C,,6662),FCB=P663,
+//**             HOLD=&LHOLD.,
+//**             DEST=LOCAL
+//**                                 CONTROL REPORT SUMMARY
+//RPT980R1 DD  SYSOUT=Q,COPIES=2,
+//             HOLD=&LHOLD.,
+//             DEST=U@PRT65
+//****
+//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=U@PRT155,                                           00155302
+//             HOLD=&LHOLD.                                             00155403
+//**                                                                    00157001