//DTSRQ433 JOB (UI,4300,3400,T),PROD.BE433,CLASS=S,MSGCLASS=X,
//         USER=#DOADTS,
//         NOTIFY=ECNTSUP,
//         REGION=0M
//****
//****
//  SET ACHYEAR='FY2009'
//  SET LVLNODE='PROD'
//  SET MSTNODE='PROD'
//  SET LDEST=U@PRT65
//  SET LHOLD='YES'
//****
//*    SECOND NOTICE: SELF-INSURED TAX DUE
//*       RUNS ON REQUEST AT LEAST 30 DAYS AFTER THE SELF-INSURED
//*       TAX DUE DATE.
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*      BACKUP REQUIRED - UPDATES MEVL
//**
//STEP0200 EXEC DTSUEXT,
//             RUNTYPE='OR',
//             PREBACK='Y'
//STEP0100.EXTPARM DD *
433,101
/*
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*
//STEP0300 EXEC DTSRQRPT
//*                            /* ARCHIVE 433 SI DELQ RECORDS
//STEP0100 EXEC DTSAR433
//*                            /* STD BACKUP AFTER UPDATE
//STEP0200 EXEC DTSUTVSM,
//         BKUPGEN='(+1)'
//*