MP Batchs, copybooks, jcls, Procs
This commit is contained in:
20
JCL/VLTEST.jcl
Normal file
20
JCL/VLTEST.jcl
Normal file
@ -0,0 +1,20 @@
|
||||
//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X,
|
||||
// NOTIFY=ECNTZL1,REGION=0M
|
||||
//****
|
||||
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS
|
||||
// COND=(4,LT)
|
||||
//SYSOUT DD SYSOUT=(*)
|
||||
//SYSPRINT DD SYSOUT=(*)
|
||||
//SORTIN DD DSN=DOESTAX.PROD.SRTDAILY.RPT(+0),DISP=SHR
|
||||
//****
|
||||
//SORTOUT DD DSN=&&SRTOUT,
|
||||
// DISP=(,PASS,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(8192,(1000,1000),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=0)
|
||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR
|
||||
//****
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
||||
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
||||
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
||||
Reference in New Issue
Block a user