36 lines
1.7 KiB
Plaintext
36 lines
1.7 KiB
Plaintext
//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
|
|
//****
|