Initial commit of DUTAS source code

Procs/DESBD220

@@ -0,0 +1,44 @@
+//DESBD220 PROC
+//****
+//*         BATCH UPDATE OF ELECTRONIC MEDIA FILES
+//*
+//****
+//*  STEP0100: UPDATE THE ELECTRONIC MEDIA MASTER FILES WITH
+//*            RECORDS CREATED DURING DAILY PROCESSING OF WAGE
+//*            TAPES AND DISKS.
+//*
+//*********************************************************************
+//*  UPDATE ELECTRONIC MEDIA MASTER FILES
+//*********************************************************************
+//STEP0200 EXEC PGM=DESBD220,
+//         COND=(0,LT)
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFVRI1 DD  DSN=&&EMTRAN,DISP=(OLD,PASS,DELETE)
+//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..DES.RPT(+1),
+//             DISP=(,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(16394,(900,900),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//*********************************************************************
+//*  SAVE INPUT DATA IN GDG
+//*********************************************************************
+//**STEP0300 EXEC PGM=IDCAMS,
+//**         COND=(0,LT)
+//**SYSPRINT DD SYSOUT=*
+//**INDD01   DD DSN=&&EMTRAN,DISP=(OLD,PASS,DELETE)
+//**OUTDD01  DD DSN=DOESTAX.&LVLNODE..EMTRAN.SRT(+1),
+//**            DISP=(,CATLG,DELETE),
+//**            SPACE=(16384,(1000,1000),RLSE),
+//**            DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//**SYSIN    DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*
+//STEP0400 EXEC PGM=IDCAMS,
+//         COND=(0,LT)
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=&&W4TRAN,DISP=(OLD,PASS,DELETE)
+//OUTDD01  DD  DSN=DOESTAX.CONV.W4TRAN.SRT(+1),
+//             DISP=(,CATLG,DELETE),
+//             SPACE=(16384,(1000,1000),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*