Initial commit of DUTAS source code

Procs/DESBD120

@@ -0,0 +1,25 @@
+//DESBD120 PROC                                                         00000010
+//*
+//*********************************************************************
+//STEP0100 EXEC PGM=DESBD120,PARM='&LOGNO.'
+//*
+//BD120EMI DD  DSN=DOESTAX.CONV.&EMFILE.,
+//             DISP=SHR
+//*
+//BD120EMO DD  DSN=&&BD120,
+//             DISP=(,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(8192,(10,100),RLSE),
+//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//*                                                                     00180028
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00220002
+//*****************************************************************     00320000
+//*
+//STEP0200 EXEC PGM=IDCAMS,COND=(0,LT)                                  00590044
+//SYSPRINT DD SYSOUT=*                                                  00600044
+//*
+//INDD01   DD DSN=&&BD120,DISP=(OLD,DELETE,DELETE)                      00610044
+//OUTDD01  DD DSN=DOESTAX.CONV.&EMFILE,DISP=OLD                         00620044
+//*
+//SYSIN    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR      00630044
+//*                                                                     00640044