Find (Or CREATE) A Source Code For An OBJECT
CHKOBJ OBJ(&OBJLIB/&OBJNAME)
OBJTYPE(&OBJTYPE)
DSPOBJD OBJ(&OBJLIB/&OBJNAME)
OBJTYPE(&OBJTYPE) +
OUTPUT(*OUTFILE)
OUTFILE(QTEMP/QADSPOBJ)
OVRDBF FILE(QADSPOBJ)
TOFILE(QTEMP/QADSPOBJ)
RCVF
MONMSG CPF0864
EXEC(RETURN)
IF COND(&OPTION
*EQ 'E') THEN(STRSEU +
SRCFILE(&ODSRCL/&ODSRCF)
SRCMBR(&ODSRCM) +
OPTION(2))
ELSE CMD(IF
COND(&OPTION *EQ 'D') THEN(STRSEU +
SRCFILE(&ODSRCL/&ODSRCF)
SRCMBR(&ODSRCM) +
OPTION(5)))
ELSE CMD(SNDPGMMSG
MSG('SOURCE IS LOCATED IN +
MEMBER' *BCAT
&ODSRCM *BCAT 'IN FILE' +
*BCAT &ODSRCL
*TCAT '/' *CAT &ODSRCF +
*TCAT '.')
MSGTYPE(*COMP))
DLTOVR
FILE(QADSPOBJ)
No comments