DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSSQ320.jcl

@@ -0,0 +1,37 @@
+//DTSSQ320 JOB (UI,4300,3400,T),PROD.BE320,CLASS=P,MSGCLASS=X,          00000010
+//       NOTIFY=ECNTZL1,
+//       USER=#DOADTS,
+//****   TYPRUN=SCAN,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET LVLNODE='PROD'
+//    SET MSTNODE='PROD'
+//     SET PENQTR='Q124'  << FOR PENALTY FILE NAME ONLY>>>>
+//****
+//*    JOB : PENALTY ASSESSMENT PROCESS (DTSSQ320=SI    EMPLOYERS ONLY)
+//*    JOB : PENALTY ASSESSMENT PROCESS (DTSRQ320=RATED EMPLOYERS ONLY)
+//****
+//*       1. RUN *BEFORE* A DAILY RUN
+//*          -->  AFTER THE SUCCESSFUL DAILY RUN,
+//*                 THEN RUN THE QTRLY 417 REPORTS
+//*       2. THE CICS FILES MUST BE CLOSED FOR ALL THE ABOVE
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//*
+//*                             STD BACKUP BEFORE DATA FILE UPDATE
+//*TEP0100 EXEC DTSUTVSM,
+//*         BKUPGEN='(+1)'
+//*
+//STEP0200 EXEC DTSUEXT2,                    BD400 PERIODIC EXTRACT
+//          RUNTYPE='QP',
+//          PREBACK='Y'
+//STEP0100.EXTPARM  DD *
+320,   ,S
+//*                       STD BACKUP AFTER DATA FILE UPDATE
+//**                    (NOT NEEDED IF RUN IMMEDIATELY BEFORE
+//**                             A REGULAR DAILY RUN )
+//STEP0300 EXEC DTSUTVSM,
+//          BKUPGEN='(+1)'
+//*