Initial commit of DUTAS source code

Procs/DESBD110

@@ -0,0 +1,81 @@
+//DESBD110 PROC
+//****
+//*         BATCH UPDATE OF ELECTRONIC MEDIA FILES
+//*         STEP0100: SELECT RECORDS FOR UPDATE
+//****
+//*  STEP0100: MERGE ELECTRONIC MEDIA RECORDS TO BE LOADED TO
+//*  MASTER FILE. INPUT FILES PRODUCED DURING DAILY PROCESSING
+//*  OF WAGE TAPES AND DISKS.
+//*
+//*  INPUT FILES:
+//*     DOESTAX.&LVLNODE..XXEMTRAN
+//*                   CONTAINS ELECTRONIC MEDIA RECORDS
+//*     DOESTAX.&LVLNODE..XXW4TRAN
+//*                   CONTAINS W4 WAGE TRANSACTIONS
+//*     DOESTAX.&LVLNODE..VSAM.OLA
+//*                   CONTAINS T061 TRIGGER RECORDS FOR EACH ITEM TO
+//*                   BE PROCESSED. THE ITEMS ARE IDENTIFIED BY LOG NO.
+//*
+//*  STEP0100: MERGE THE ELECTRONIC MEDIA INPUT FILES TO    &&BD110EM
+//*            MERGE THE W4 WAGE TRANSACTION INPUT FILES TO &&BD110W4
+//*
+//*  STEP0200 SELECTS THE LOG NUMBERS TO BE PROCESSED DURING
+//*           THIS RUN, AND EXTRACTS RECORDS WITH THOSE LOG
+//*           NUMBERS TO THE FOLLOWING DATA SETS:
+//*
+//*              W4 TRANSACTIONS: DOESTAX.CONV.W4TRAN
+//*              EM TRANSACTIONS: DOESTAX.CONV.EMTRAN
+//******************************************************************
+//STEP0100 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=DOESTAX.CONV.GBEMTRAN,DISP=SHR
+//OUTDD01  DD DSN=&&BD110EM,
+//         DISP=(NEW,PASS,DELETE),
+//         UNIT=SYSDA,
+//         SPACE=(8192,(1000,1000),RLSE),
+//         DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*
+//STEP0110 EXEC PGM=IDCAMS,
+//             COND=(0,LT)
+//SYSPRINT DD SYSOUT=*
+//INDD01   DD DSN=DOESTAX.CONV.GBW4TRAN,DISP=SHR
+//OUTDD01  DD DSN=&&BD110W4,
+//         DISP=(NEW,PASS,DELETE),
+//         UNIT=SYSDA,
+//         SPACE=(CYL,(20,20),RLSE),
+//         DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000)
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
+//*
+//*********************************************************************
+//*  SELECT RECORDS BY LOG NUMBER, BASED ON T061 RECORDS
+//*  IN OLA FILE.
+//*********************************************************************
+//STEP0200 EXEC PGM=DESBD110,
+//             COND=(0,LT)
+//DTSFOLAI DD  DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR,
+//             AMP=('BUFND=10')
+//DTSFVRI1 DD DSN=&&BD110EM,         ELECTRONIC MEDIA DATA
+//         DISP=(OLD,PASS,DELETE)
+//DTSFVRO1 DD  DSN=&&EMTRAN,
+//         DISP=(NEW,PASS,DELETE),
+//         UNIT=SYSDA,
+//         SPACE=(8192,(1000,1000),RLSE),
+//         DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//*
+//DTSFVRO2 DD  DUMMY
+//**DTSFVRO2 DD  DSN=DOESTAX.&LVLNODE..EMTRIG(+1),
+//**         DISP=(NEW,CATLG,DELETE),
+//**         UNIT=SYSDA,
+//**         SPACE=(8192,(1000,1000),RLSE),
+//**         DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//*
+//BD110W4  DD DSN=&&BD110W4,         WAGE DATA
+//         DISP=(OLD,PASS,DELETE)
+//BD110W4O DD  DSN=&&W4TRAN,
+//         DISP=(NEW,PASS,DELETE),
+//         UNIT=SYSDA,
+//         SPACE=(8192,(1000,1000),RLSE),
+//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
+//**