<verbatim> /******************************************************************************/ /* Copyright (c) Tom Liotta http://zap.to/tl400 Used with permission */ /******************************************************************************/ /* CRTCMD CMD(mylib/RSNESCMSG) + */ /* PGM(QSYS/QMHRSNEM) + */ /* SRCFILE(mylib/mysrc) + */ /* SRCMBR(RSNESCMSG) */ CMD PROMPT('Resend Escape Message') PARM KWD(MSGKEY) + TYPE(*CHAR) + LEN(4) + CONSTANT(' ') PARM KWD(ERRCOD) + TYPE(*INT4) + CONSTANT(0) </verbatim> -- Main.MartinRowe - 24 Jun 2005
This topic: DBG400
>
SourceCodeList
>
CmdSource
>
CmdRSNESCMSG
Topic revision: r1 - 24 Jun 2005 - 20:34:11 -
MartinRowe
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400?
Send feedback