DUTAS re-platformed to Raincode - Initial Source Code

JCL/DESBD100.jcl

@@ -0,0 +1,38 @@
+//DESBD100 JOB (UI,4300,3400,T),PROD.BD100.UPDT,                        00000010
+//       CLASS=P,MSGCLASS=X,                                            00000010
+//***    TYPRUN=SCAN,
+//       NOTIFY=ECNTSUP,
+//       REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//****
+//    SET LVLNODE='PROD'
+//    SET   LHOLD='YES'
+//****
+//*         RPT101R1  = PACKING LIST REPORT
+//****
+//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//****
+//****                             /* GET PACKING LIST RECORD(S)
+//STEP0150 EXEC PGM=DESBD100
+//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
+//DTSFOLAI DD  DSN=DOESTAX.&LVLNODE..VSAM.OLA,DISP=SHR,
+//             AMP=('BUFND=10')
+//DESBD100 DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DESBD100),
+//             DISP=SHR
+//DTSFVRO1 DD  DSN=&&BD100R,
+//             DISP=(NEW,PASS,DELETE),
+//             UNIT=SYSDA,
+//             SPACE=(8192,(1000,1000),RLSE),
+//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
+//****
+//****                                      SORT REPORT RECORDS
+//STEP0200 EXEC DESRSORT,
+//            LGEN='(+1)'
+//STEP0100.SORTIN DD DSN=&&BD100R,
+//             DISP=(OLD,DELETE,DELETE)
+//*                                         REPORT GENERATION
+//STEP0300 EXEC DESRQRPT
+//STEP0100.RPT101R1 DD  HOLD=NO
+//STEP0100.RPT980R1 DD  HOLD=NO
+//**