DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ305.jcl

@@ -0,0 +1,33 @@
+//DTSRQ305 JOB (UI,4300,3400,T),BE305,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTJP2,
+//****     TYPRUN=SCAN,
+//****     TYPRUN=HOLD,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*
+//   SET LVLNODE='PROD'
+//   SET   LHOLD='YES'
+//****
+//*    ON REQUEST REPORT DTSBR305 -                                 *
+//*                      TRIAL BAL RPT
+//****
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUEXT,
+//             RUNTYPE='OR'
+//*
+//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ305),
+//         DISP=SHR
+/*
+//STEP0100.DTSFRCVB DD  DSN=DOESTAX.PROD.BE305.RCVBL,
+//           DISP=(OLD,KEEP,KEEP)
+//*                        REPORT RECORD SORT
+//STEP0250 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//STEP0300 EXEC DTSRQRPT
+//STEP0100.RPT305R1 DD  SYSOUT=(V,DTS305R1),HOLD=&LVDHOLD.,             00630200
+//         DEST=&LDEST.
+//DOESLBLP.DOESLBL1 DD DUMMY                      LABELS                00630200