//DTSBX470 JOB (UI,4300,3400,T),RUNBX470,CLASS=S,MSGCLASS=X,            00000010
//*         TYPRUN=SCAN,
//          NOTIFY=ECNTSUP,
//*                                                                     00001700
//  SET LVLNODE='PROD'                                                  00001700
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//  SET MSTNODE='PROD'                                                  00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//***                              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(DTSFTOWC),DISP=SHR
/*
//***
//*
//*********************************************************************
//*