//ECNTV518 JOB (UI,4300,3400,T),RQ518.VIEWDIR,                          00000010
//       CLASS=P,MSGCLASS=X,                                            00000010
//***    USER=OPCSUB,
//***    NOTIFY=ECNTZL1,
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//     SET LVLPROG='PROD'
//     SET LVLNODE='PROD'
//     SET   CALYR='YR2004'
//     SET   LDEST=U@PRT65
//     SET   LHOLD='YES'
//****
//*   JOB : RE-RUN FOR VIEW DIRECT ANNUAL FILERS RATES
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****                                      REPORT GENERATION
//**DTSBD800,INC,515,516,521
//****                                      REPORT RECORDS ARE SORTED
//STEP0300 EXEC DTSVARPT
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..RATE517.RPT.AN2004,
//           DISP=SHR
//STEP0100.PARMIN  DD  *
DTSBD800,INC,515,516,521
/*
//**
//STEP0100.RPT503R1 DD DUMMY
//STEP0100.RPT503R2 DD DUMMY
//**
//*                                                                     00640000