//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..PROCS.BATCH.LIB
//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
//**