DUTAS re-platformed to Raincode - Initial Source Code

Procs/DTSUTVSB

@@ -0,0 +1,18 @@
+//*                                                                     00044000
+//*****                                                                 00050000
+//DTSUTVSB PROC LVLNODE='DEVL',                                         00060001
+//             BCKNODE='BACKUP',                                        00061000
+//             BKUPGEN='(+1)'                                           00070000
+//********************************************************************* 00100000
+//STEP0110 EXEC PGM=SORT,                               MSTB BACKUP     00240101
+//             COND=(0,LT)                                              00240200
+//SYSOUT   DD  SYSOUT=*                                                 00240300
+//SORTIN   DD  DSN=DOESTAX.PROD.VSAM.MSTB,DISP=SHR,                     00240401
+//             AMP=('BUFNI=5,BUFND=30')                                 00240500
+//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..&BCKNODE..MSTB&BKUPGEN.,           00240601
+//             DISP=(,CATLG,DELETE),                                    00240700
+//             UNIT=CART,                                               00240800
+//             VOLUME=(,RETAIN),                                        00240900
+//             LABEL=(1,SL,,,EXPDT=99000),                              00241000
+//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4096,BLKSIZE=32760)       00241100
+//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSCOPY),DISP=SHR         00241203