66 lines
1.9 KiB
Plaintext
66 lines
1.9 KiB
Plaintext
//DTSRQ414 JOB (UI,4300,3400,T),DTSRQ414,CLASS=S,MSGCLASS=X,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,
|
|
//**** TYPRUN=SCAN,
|
|
//**** TYPRUN=HOLD,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
//* SET ACHYEAR='FY2009'
|
|
// SET MSTNODE='PROD'
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//****
|
|
//* ON REQUEST REPORT DTSBR414 - *
|
|
//****
|
|
//* 06/30/09 ADDED PROC TO ARCHIVE REPORT RECORDS 414 ZL1
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//*
|
|
//**
|
|
//STEP0200 EXEC DTSUEXT,
|
|
// RUNTYPE='QR',
|
|
// PREBACK='Y'
|
|
//*
|
|
//STEP0100.EXTPARM DD *
|
|
***
|
|
***
|
|
*** 414 IS PROGRAM ID (DO NOT CHANGE THIS)
|
|
***
|
|
*** XXXXXXXX - RESP OPID, EXAMPLE
|
|
*** MMDDYY - INT-COMP-DATE, CONTROL CARD FOLLOWS
|
|
*** MMDDYY - REIMB-CUTOFF-DATE,
|
|
414, , , ,
|
|
***
|
|
/*
|
|
//* REPORT RECORD SORT
|
|
//STEP0250 EXEC DTSRSORT
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//STEP0100.RPT414R2 DD HOLD=YES
|
|
//STEP0100.RPT414R3 DD HOLD=YES
|
|
//STEP0100.RPT414R4 DD DSN=DOESTAX.PROD.R414.EXCL.RPT2,DISP=SHR
|
|
//STEP0100.RPT414R5 DD DSN=DOESTAX.PROD.R414.EXCL.RPT3,DISP=SHR
|
|
//STEP0100.RPT414R6 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,DISP=SHR
|
|
//STEP0100.RPT907R1 DD HOLD=YES
|
|
//STEP0100.RPT907R2 DD HOLD=YES
|
|
//STEP0100.RPT980R1 DD HOLD=YES
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
|
|
//*
|
|
//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)'
|
|
//*
|