PROC:
//SYMB PROC //************************************************************** //* Symbolic Parameters //************************************************************** //SYM001 EXEC PGM=PRG01 //SYMF01 DD DSN=SYM.TST.INF01,DISP=SHR //SYMF02 DD DSN=SYM.TST.OUTF01,DISP=(NEW,CATLG,DELETE), // UNIT=&UNIT,SPACE=(CYL,(1,1),RLSE), // DCB=(RECFM=FB,LRECL=100,BLKSIZE=1000) //* // PEND |
JOB to Override the UNIT value,
//PKMXTST1 JOB MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=USER1 // JCLLIB ORDER=(SYM.TR.SOURCE) //******************************************************* //* JOB REPLACE UNIT PARAMETER //******************************************************* //STEP1 EXEC PROC1,UNIT=SYSDA |
PROC:
//SYMB02 PROC //***************************************************************** //* OVERRIDING THE DATASET SUB PARAMETERS //*************************************************************** //* //PRC001 EXEC PGM=TRCX99 //SYSPRINT DD SYSOUT=A //TRCIN DD DSN=&HLQ..TR.X99.IN,DISP=SHR //TRCOUT DD DSN=&HLQ..TR.X99.REP,DISP=(NEW,CATLG,DELETE), // UNIT=&UNIT,SPACE=(CYL,(4,5),RLSE), // DCB=(RECFM=FB,LRECL=210,BLKSIZE=2100) //* // PEND |
JOB to pass the values:
//CRJOB JOB MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=CRUSER //STEP1 EXEC SYMB02,UNIT=SYSDA,HLQ=CR99 // |
PROC:
/SYMB03 PROC //************************************************************** //* Symbolic parameters //************************************************************** //SYM001 EXEC PGM=&PROG // . . . // PEND// |
JOB to supply the value:
//CRJOB JOB MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=CRUSER //STEP1 EXEC SYMB03,PROG=TRCX99 // |
PROC:
//PROC9 PROC //**************************************** //* Supplying parm //**************************************** //* //PRC009 EXEC PGM=&PROG,PARM='&INPARM' |
JOB to pass the parm data
//PRMTST1 JOB MSGLEVEL=(1,1),MSGCLASS=X // JCLLIB ORDER=(PRTP.TR.SOURCE) //**************************************************************** //* JOB REPLACE UNIT PARAMETER //*************************************************************** //STEP1 EXEC PROC9,PROG=PRM700,INPARM=CR // |
In this case parm EXEC statement replaced as,
PGM=PRM700,PARM='CR' |
If you have any doubts or queries related to this chapter, get them clarified from our Mainframe experts on ibmmainframer Community!