//ECNTV704 JOB (UI,4300,3400,T),RQ704.VIEWDIR,                          00000010
//       CLASS=P,MSGCLASS=X,                                            00000010
//***    USER=OPCSUB,
//***    NOTIFY=ECNTJP2,
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                        /* VIEWDIRECT OPTION
//     SET LVLPROG='PROD'
//     SET LVLNODE='PROD'
//     SET   CALYR='CY2003'
//     SET   LDEST=U@PRT65
//     SET   LHOLD='YES'
//     SET LVDHOLD='YES'
//*   JOB : RE-RUN A REPORT FROM THE YEAR-END FUTA CERTIFICATION
//****
/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLPROG..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****                                      REPORT GENERATION
//**DTSBD800,INC,704,705
//****                                      REPORT RECORDS ARE SORTED
//STEP0300 EXEC DTSVQRPT
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..FUTA704.RPT.&CALYR.,
//           DISP=SHR
//STEP0100.PARMIN  DD  *
DTSBD800,EXC,708
/*
//STEP0100.RPT708R1 DD  DUMMY
//STEP0100.RPT907R1 DD  SYSOUT=(Q,DTS907Y1),DEST=U@PRT65,
//             HOLD=&LVDHOLD.                                           00640000
//STEP0100.RPT980R1 DD  SYSOUT=(Q,DTS980Y1),DEST=U@PRT65,
//             HOLD=&LVDHOLD.                                           00640000
//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00631000
//*                                                                     00640000
//*                                                                     00640000