//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)
//**