DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSBX122

@@ -0,0 +1,26 @@
+//*
+//*      WEEKLY REGISTRATION COUNTS (R122)
+//*
+//DTSBX122 PROC
+//**              DEFNS NEEDED FOR THIS PROC:
+//**   LVLNODE = DEVL/TEST/PROD
+//****
+//*
+//STEP0100 EXEC PGM=DTSBX122,
+//             COND=(0,LT),
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFVRI1 DD  DSN=DOESTAX.&MSTNODE..SRTDAY07.RPT(+0),DISP=SHR
+//*                                                                     00014000
+//DTSFREG  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.REG122,                00005000
+//             DISP=(OLD,KEEP,KEEP),
+//**           DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(28200,(1000,1000),RLSE),
+//             DCB=(RECFM=FB,LRECL=94,BLKSIZE=28200)
+//*                                                                     00014000
+//*****************************************