Files
DUTAS/JCL/DTSESDAY.jcl

48 lines
3.5 KiB
Plaintext

//DTSESDAY JOB (UI,4300,3400,T),DAILY-EXTRACT,CLASS=S, 00010001
// MSGCLASS=X, 00020000
// USER=#DOADTS, 00021011
// NOTIFY=ECNTZL1, 00030008
// REGION=0M 00050000
//**** 00060000
//* BUILD DAILY DATABASE EXTRACTS FOR ESSP 00070001
//* 1. ACCOUNTING DETAILS 00081001
//* 2. PAYMENT DETAILS 00082001
//* 3. CREDITS (DISTRIBUTION) DETAILS, 00083001
//* 00084001
//* NO MASTER FILE UPDATES 00090000
//* 00100000
//* 00110000
//**** 00130000
// SET LVLNODE='CONV' 00140000
// SET MSTNODE='PROD' 00150000
// SET RUNTYPE='0' 00150100
//**** 00151000
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00160000
//**** 00170000
//LOADLIBS INCLUDE MEMBER=DTSIELIB 00181000
//**** 00190000
//STEP0100 EXEC DTSESDAY SELECT CURRENT FILE 00191009
//* 00250000
//*TEP0100.DTSFBTCO DD DUMMY 00260006
//*TEP0100.DTSFVRO1 DD DUMMY 00270006
//STEP0100.DTS003F1 DD DSN=ECNTSUP.DOESTAX.DEVL.FTP.HOLIDAYS,DISP=SHR 00270109
//**** 00284000
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd /Dutasrc/essp/outbound_essp
ascii
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS' +
ECNTSUP.DOESTAX.CONV.DOES.DAILY.CREDITS
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT' +
ECNTSUP.DOESTAX.CONV.DOES.DAILY.MJRNACCT
put 'ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT' +
ECNTSUP.DOESTAX.CONV.DOES.DAILY.TAXPAYMT
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//