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

JCL/DTSBK325.jcl

@@ -0,0 +1,30 @@
+//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X,        00000010
+//         USER=#DOADTS,
+//         NOTIFY=ECNTSUP
+//*                                                                     00001700
+//   SET LVLNODE='PROD'
+//   SET MSTNODE='PROD'
+//   SET LHOLD='YES'
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0050 EXEC DTSUTVSM,
+//             BKUPGEN='(+1)'
+//*                                                                     00001700
+//STEP0100 EXEC DTSUX325,
+//             RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD *
+325
+/*
+//****
+//*******************************************************************
+//***                              SEND DATA TO SERVER FOR UPLOAD
+//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT325),DISP=SHR
+//****