//****                                                                  00000010
//*   EXTRACT WAGE DATA FROM TAX MAINFRAME FILES                        00001700
//*   INTO COMMA-SEPARATED FILES FOR WEB DATABASE                       00001700
//*                                                                     00001700
//*   >> INITIAL CONVERSION                                             00001700
//**                                                                    00001700
//DTSBX335 PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=DTSBX335,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//*                                                                     00001700
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFNAME DD  DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//DTSFPARM DD  DSN=&&X335PARM,
//             DISP=(OLD,DELETE,DELETE),
//             UNIT=SYSDA,
//             SPACE=(16,(10,10),RLSE),
//             DCB=(RECFM=FB,LRECL=16,BLKSIZE=16)
//*
//DTSFPRF  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.PRF,
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(CYL,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=72,BLKSIZE=28800)
//**
//EXPBX142 DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGE,                  00005000
//**           DISP=(NEW,CATLG,DELETE),                                 00006000
//             DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(200,50),RLSE),                               00008000
//             DCB=(RECFM=FB,LRECL=42,BLKSIZE=29400)                    00009000
//*                                                                     00001700
//EXPBX144 DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.WAGENAME,              00005000
//**           DISP=(NEW,CATLG,DELETE),                                 00006000
//             DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(50,20),RLSE),                                00008000
//             DCB=(RECFM=FB,LRECL=52,BLKSIZE=31200)                    00009000
//*                                                                     00001700
//*********************************************************************