Comments on: Error msg not showing on display screen in AS/400

By: tomliotta

tomliotta — Fri, 03 Dec 2010 07:59:38 +0000

TOPGMQ(*prv)

You’re sending to the program message queue of the entry on the call stack above the CL. Assuming that the CL is compiled as a program, what does the entry above it in the call stack do with messages on its program message queue?

Tom

By: ambrish 82

ambrish 82 — Fri, 03 Dec 2010 06:37:35 +0000

This is source of clp which is called by rpgle, i am passing member name , Source file,Library as a entry parameter , & want show the source of that member , if there is any arror the it should be display on display screen .( where i am using msg subfile) /****************** PGM PARM(&MLFILE &MLLIB &MLNAME) DCL VAR(&PGMSGQ) TYPE(*CHAR) LEN(10) DCL VAR(&MLFILE) TYPE(*CHAR) LEN(10) DCL VAR(&MLLIB) TYPE(*CHAR) LEN(10) DCL VAR(&MLNAME) TYPE(*CHAR) LEN(10) DCL VAR(&MSGID) TYPE(*CHAR) LEN(7) MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR)) CHGVAR VAR(&PGMSGQ) VALUE('DSPfdc') STRSEU SRCFILE(&MLLIB/&MLFILE) SRCMBR(&MLNAME) + OPTION(5) GOTO CMDLBL(ENDPGM) error: RMVMSG PGMQ(*PRV) CLEAR(*ALL) RCVMSG MSGID(&MSGID) SNDPGMMSG MSGID(&MSGID) MSGF(QEDTMSG) TOPGMQ(*prv) ENDPGM: ENDPGM *************************/ Thanks

By: charliebrowne

charliebrowne — Thu, 02 Dec 2010 15:01:53 +0000

What is in the parameter for where you are sending it?
Is it going to the users message queue or workstation queue?
Do you need to have those set to be in break mode?

By: tomliotta

tomliotta — Thu, 02 Dec 2010 08:22:02 +0000

Most likely, you’re sending it to the joblog or a program message queue (and the program isn’t displaying its messages) instead of to the display. But it’s hard to tell what might need to be changed without seeing the code.

Tom