//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X,        00000010
//         USER=#DOADTS,
//         NOTIFY=ECNTSUP
//*                                                                     00001700
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//   SET LHOLD='YES'
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0050 EXEC DTSUTVSM,
//             BKUPGEN='(+1)'
//*                                                                     00001700
//STEP0100 EXEC DTSUX325,
//             RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD *
325
/*
//****
//*******************************************************************
//***                              SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
//SYSPRINT DD  SYSOUT=*
//OUTPUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT325),DISP=SHR
//****