DUTAS re-platformed to Raincode - 29Jul2025-update-from-Srujani

JCL/RUNBZ313.jcl

@@ -0,0 +1,30 @@
+//ECNTGD11 JOB (UI,4300,3400,T),RUNWNAME,CLASS=A,MSGCLASS=X,            00000010
+//**        TYPRUN=SCAN,
+//          USER=#DOADTS,
+//          NOTIFY=ECNTSUP
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//**
+// SET LVLNODE='PROD'
+// SET MSTNODE='PROD'
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//STEP0100 EXEC PGM=DTSBZ313,
+//             COND=(0,LT),
+//             REGION=0M
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//*
+//WORKRIN  DD  DSN=DOESTAX.DEVL.NEWHIRE.WORKER,
+//             DISP=(OLD,KEEP,KEEP),
+//**           DISP=(NEW,CATLG,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(30000,(400,200),RLSE),
+//             DCB=(RECFM=FB,LRECL=150,BLKSIZE=30000)
+//*
+//DTSFNAME DD  DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//***
+//*****