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