//DTSRQ327 JOB (UI,4300,3400,T),RUNRQ327,CLASS=A,MSGCLASS=X,            00000010
//**       TYPRUN=SCAN,
//         NOTIFY=ECNTZL1,
//         USER=#DOADTS
//*                                                                     00001700
//********************************************************************  00001700
//* THIS JOB CREATE T026 TRANSCATIONS FOR SI ADMIN BILLS TO BE PROCESS  00001700
//* BY THE DAILY UPDATE AND THEN JOB DTSRQ328 WILL PRINT THE SI BILLS   00001700
//***** THIS JOB REPLACES DTSRQ325- IR325 NOW CREATED BY DTSBE327       00001700
//********************************************************************  00001700
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//   SET LHOLD='YES'                                                    00001700
//   SET LDEST='LOCAL'                                                  00001700
//*  SET LDEST='U@PRT65'                                                00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//STEP0100 EXEC DTSUX327,
//             RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD *
327
/*
//
//*******************************************************************
//***                              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(DTSFT327),DISP=SHR
//****