//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)'
//*