RPG source
1
PGM PARM(&OBJECT &TYPE)
DCL VAR(&Object ) TYPE(*CHAR) LEN(10)
DCL VAR(&Type ) TYPE(*CHAR) LEN(10)
DCL VAR(&wSrcF ) TYPE(*CHAR) LEN(10)
DCL VAR(&wSrcFlib) TYPE(*CHAR) LEN(10)
DCL VAR(&wSrcMbr) TYPE(*CHAR) LEN(10)
IF COND(&Object *EQ ' ') THEN(DO)
SNDPGMMSG MSGID(DBG9996) MSGF(PGLUB/DBGMSG) +
MSGDTA(&Object) MSGTYPE(*DIAG)
RETURN
ENDDO
IF COND(&Type *EQ ' ') THEN(DO)
CHGVAR VAR(&Type) VALUE('*MODULE')
ENDDO
CHKOBJ OBJ(*LIBL/&Object) OBJTYPE(&Type)
MONMSG MSGID(CPF9801) EXEC(DO)
SNDPGMMSG MSGID(DBG9999) MSGF(PGLUB/DBGMSG) +
MSGDTA(&Object) MSGTYPE(*DIAG)
RETURN
ENDDO
RTVOBJD OBJ(*LIBL/&Object) OBJTYPE(&Type) +
SRCF(&WSRCF) SRCFLIB(&WSRCFLIB) +
SRCMBR(&WSRCMBR)
STRSEU SRCFILE(&WSRCFLIB/&WSRCF) SRCMBR(&WSRCMBR)
OPTION(5)
MONMSG MSGID(EDT9007) EXEC(DO)
SNDPGMMSG MSGID(DBG9995) MSGF(PGLUB/DBGMSG) +
MSGDTA(&OBJECT) MSGTYPE(*DIAG)
RETURN
ENDDO
MONMSG MSGID(CPF0001) EXEC(DO)
SNDPGMMSG MSGID(DBG9998) MSGF(PGLUB/DBGMSG) +
MSGDTA(&OBJECT) MSGTYPE(*DIAG)
RETURN
ENDDO
END:
ENDPGM
RETURN
2 编译命令
