DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ327.jcl

@@ -0,0 +1,35 @@
+//DTSRQ327 JOB (UI,4300,3400,T),RUNRQ327,CLASS=A,MSGCLASS=X,            00000010
+//**       TYPRUN=SCAN,
+//         NOTIFY=ECNTZL1,
+//         USER=#DOADTS
+//*                                                                     00001700
+//********************************************************************  00001700
+//* THIS JOB CREATE T026 TRANSCATIONS FOR SI ADMIN BILLS TO BE PROCESS  00001700
+//* BY THE DAILY UPDATE AND THEN JOB DTSRQ328 WILL PRINT THE SI BILLS   00001700
+//***** THIS JOB REPLACES DTSRQ325- IR325 NOW CREATED BY DTSBE327       00001700
+//********************************************************************  00001700
+//   SET LVLNODE='PROD'
+//   SET MSTNODE='PROD'
+//   SET LHOLD='YES'                                                    00001700
+//   SET LDEST='LOCAL'                                                  00001700
+//*  SET LDEST='U@PRT65'                                                00001700
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//STEP0100 EXEC DTSUX327,
+//             RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD *
+327
+/*
+//
+//*******************************************************************
+//***                              SEND DATA TO SERVER FOR UPLOAD
+//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT327),DISP=SHR
+//****