Files
DUTAS/JCL/DTSBX215.jcl
2025-07-21 11:20:11 -04:00

27 lines
936 B
Plaintext

//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP,
// REGION=0M
//*
//* DAILY BATCH CONTROL SUMMARY REPORT RECORDS
//*
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//*
//* 00070000
//STEP0200 EXEC DTSBX215
//* 00014000
//*****************************************
//STEP0210 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
//