//****                                                                  00000010
//*   EXTRACT EMPLOYER DATA FROM TAX MAINFRAME FILES                    00001700
//*   INTO COMMA-SEPARATED FILES FOR WEB DATABASE                       00001700
//*                                                                     00001700
//*   >> INITIAL CONVERSION                                             00001700
//**                                                                    00001700
//DTSBX411 PROC
//**                                                                    00001700
//STEP0100 EXEC PGM=DTSBX411,
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//*                                                                     00001700
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//***
//BX411TMP DD  DSN=&&X411TMP,                                           00005000
//             DISP=(NEW,PASS,DELETE),                                  00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(20,10),RLSE),                                00008000
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)                   00009000
//*                                                                     00001700
//EXPBX100 DD  DSN=DOESTAX.&LVLNODE..EXPBX100,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(90,(1000,1000),RLSE),                             00008000
//             DCB=(RECFM=FB,LRECL=30,BLKSIZE=90)                       00009000
//*                                                                     00001700
//EXPBX102 DD  DSN=DOESTAX.&LVLNODE..EXPBX102,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(29000,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000)                    00009000
//*                                                                     00001700
//EXPBX104 DD  DSN=DOESTAX.&LVLNODE..EXPBX104,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(21600,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=108,BLKSIZE=21600)                   00009000
//*                                                                     00001700
//EXPBX106 DD  DSN=DOESTAX.&LVLNODE..EXPBX106,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//*            DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(26500,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500)                    00009000
//*                                                                     00001700
//EXPBX108 DD  DSN=DOESTAX.&LVLNODE..EXPBX108,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(24000,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000)                    00009000
//*                                                                     00001700
//EXPBX110 DD  DSN=DOESTAX.&LVLNODE..EXPBX110,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(24900,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900)                   00009000
//*                                                                     00001700
//EXPBX120 DD  DSN=DOESTAX.&LVLNODE..EXPBX120,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(30800,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=385,BLKSIZE=30800)                   00009000
//*                                                                     00001700
//EXPBX130 DD  DSN=DOESTAX.&LVLNODE..EXPBX130,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(29430,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=327,BLKSIZE=29430)                   00009000
//*                                                                     00001700
//EXPBX131 DD  DSN=DOESTAX.&LVLNODE..EXPBX131,
//             DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(28000,(1000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=28,BLKSIZE=28000)
//*
//EXPBX140 DD  DSN=DOESTAX.&LVLNODE..EXPBX140,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(28600,(1000,1000),RLSE),                          00008000
//             DCB=(RECFM=FB,LRECL=143,BLKSIZE=28600)                   00009000
//*                                                                     00001700
//EXPBX141 DD  DSN=DOESTAX.&LVLNODE..EXPBX141,                          00005000
//             DISP=(NEW,CATLG,DELETE),                                 00006000
//**           DISP=(OLD,KEEP,KEEP),                                    00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(10,10),RLSE),
//             DCB=(RECFM=FB,LRECL=102,BLKSIZE=30600)                   00009000
//*                                                                     00001700
//EXPBX142 DD  DSN=DOESTAX.&LVLNODE..EXPBX142,
//             DISP=(NEW,CATLG,DELETE),
//**           DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(CYL,(10,10),RLSE),
//             DCB=(RECFM=FB,LRECL=54,BLKSIZE=31320)
//*********************************************************************