Tuesday, April 17, 2012

to invoke the Catalog procedure.

CAT 1

//CAT1 PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H09.Z1.Z1,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//SYSPRINT DD SYSOUT=*

cat 2

//MYJOB JOB 1,'MAHA',CLASS=A
// JCLLIB ORDER=(KC03H09.$MARI$.LIBRARY)
//STEP2 EXEC CAT1
//SYSIN DD *

No comments:

Post a Comment