Initial commit of DUTAS source code

Procs/DESBD125

@@ -0,0 +1,23 @@
+//DESBD125 PROC                                                         00000010
+//*********************************************************************
+//STEP0100 EXEC PGM=DESBD125,PARM='&LOGNO.'
+//*
+//BD125W4I DD  DSN=DOESTAX.CONV.&W4FILE.,
+//             DISP=SHR
+//*
+//BD125W4O DD  DSN=&&BD125,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(9000,(900,900),RLSE),
+//             DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
+//*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00220002
+//*****************************************************************     00320000
+//STEP0200 EXEC PGM=IDCAMS,COND=(0,LT)                                  00590044
+//SYSPRINT DD SYSOUT=*                                                  00600044
+//*
+//INDD01   DD DSN=&&BD125,DISP=(OLD,DELETE,DELETE)                      00610044
+//OUTDD01  DD DSN=DOESTAX.CONV.&W4FILE.,DISP=OLD                        00620044
+//*
+//SYSIN    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR      00630044
+//*                                                                     00640044