39 lines
1.3 KiB
Plaintext
39 lines
1.3 KiB
Plaintext
//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
|
|
//**
|