All Z' modified PROD server code merge 09/10/2025
This commit is contained in:
@ -14,7 +14,7 @@
|
||||
//* ON REQUEST REPORT DTSBR414 - *
|
||||
//****
|
||||
//* 06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414 ZL1
|
||||
//****
|
||||
//**** TESTING RC ZL1
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//**
|
||||
@ -49,17 +49,18 @@
|
||||
//STEP0100.RPT907R1 DD HOLD=YES
|
||||
//STEP0100.RPT907R2 DD HOLD=YES
|
||||
//STEP0100.RPT980R1 DD HOLD=YES
|
||||
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
|
||||
//*DOESLBLP.DOESLBL1 DD DUMMY
|
||||
//*
|
||||
//*
|
||||
//*STEP0400 EXEC PGM=FTP
|
||||
//*SYSPRINT DD SYSOUT=*
|
||||
//*OUTOUT DD SYSOUT=*
|
||||
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//*SYSGET DD *,DCB=BLKSIZE=80
|
||||
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
|
||||
//*
|
||||
//STEP0400 EXEC PGM=FTP
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
|
||||
/*
|
||||
//STEP0500 EXEC DTSAR414 /ARCHIVE 414 RECORDS
|
||||
//**
|
||||
//STEP0600 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+1)'
|
||||
//*STEP0600 EXEC DTSUTVSM,
|
||||
//* BKUPGEN='(+1)'
|
||||
//*
|
||||
|
||||
Reference in New Issue
Block a user