//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
//****        TESTING RC ZL1
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//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        
//*
//*
//*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)'
//*