//ECNTV503 JOB (UI,4300,3400,T),RQ503.VIEWDIR,                          00000010
//       CLASS=P,MSGCLASS=X,                                            00000010
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                    /* VIEWDIRECT OPTIONS
//     SET LVLPROG='PROD'
//     SET LVLNODE='PROD'
//     SET   CALYR='YR2006'
//     SET   LDEST=U@PRT65
//     SET   LHOLD='YES'
//*   JOB : RE-RUN A REPORT FROM THE YEAR-END EXPERIENCE RATING
//****
/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****                                      REPORT GENERATION
//**DTSBD800,INC,503,506,507,515,516,517,520,521,522
//****                                      REPORT RECORDS ARE SORTED
//*