//DTSBX470 JOB (UI,4300,3400,T),RUNBX470,CLASS=S,MSGCLASS=X,            00000010
//*         TYPRUN=SCAN,
//          NOTIFY=ECNTSUP,
//          USER=#DOADTS
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*                                                                     00001700
//  SET LVLNODE='PROD'                                                  00001700
//  SET MSTNODE='PROD'                                                  00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBX470,     EMPLOYER ADDRESS EXTRACT FOR OWC
//             COND=(0,LT),
//             PARM='UPDATE,W',
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSBX470 DD  DSN=DOESTAX.&LVLNODE..FTP.DTSBX470,
//**           DISP=(NEW,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP)
//*            UNIT=SYSDA,
//*            SPACE=(CYL,(50,20),RLSE),
//*            DCB=(RECFM=FB,LRECL=441,BLKSIZE=30870)
//***
//***                              SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT470),DISP=SHR
/*
//***
//*
//*********************************************************************
//*