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

JCL/RUNBZ084.jcl

@@ -0,0 +1,30 @@
+//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ084,CLASS=P,MSGCLASS=X,            00000010
+//          NOTIFY=ECNTSUP
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*                                                                     00001700
+//   SET LVLNODE='PROD'
+//   SET MSTNODE='PROD'
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//*                                                                     00001700
+//STEP0050 EXEC DTSUTVSM,
+//         BKUPGEN='(+1)'
+//****                             /*  MERGE
+//STEP0100 EXEC PGM=DTSBZ084,     /* CORRECT DISCREPANCY BETWEEN
+//             COND=(0,LT),       /* MQTR AND MJRN CAUSED BY
+//             REGION=4096K       /* ERROR IN DTSBD350
+//SYSOUT   DD  SYSOUT=*
+//SYSABOUT DD  SYSOUT=*
+//SYSABEND DD  SYSOUT=*
+//CAIMRPTS DD  SYSOUT=*
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
+//             AMP=('BUFNI=5,BUFND=10')
+//DTSFBTCO DD  DSN=DOESTAX.&LVLNODE..BTC(+1),
+//             DISP=(,CATLG,DELETE),
+//             SPACE=(8192,(1000,1000),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
+/*
+//****