/******************************************************************************/
/* 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)
--
MartinRowe - 24 Jun 2005