DUTAS re-platformed to Raincode - Initial Source Code

JCL/ECNTV704.jcl

@@ -0,0 +1,37 @@
+//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