Re: RPGIII OPM - Error message

Hi Bruno,

What is the MSGID of the *ESCAPE message?

Your MONMSG only monitors for messages whose MSGID starts with CPF. If the MSGID starts with something else, the MONMSG will not trap it, CLP01 will end and return to the RPG program.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /

On 3/4/2020 11:55 PM, Bruno VARON wrote:

I think I have to precise my problem.

The RPG source :
************** RPG01 **************************************
*
C CALL 'CLP01'
C PARM '1' P1 1
*
C SETON LR
************** RPG01 **************************************

The CLP source

************** CLP01 **************************************
PGM PARM(&P1)

DCL VAR(&P1) TYPE(*CHAR) LEN(1)

ROXMBX TEXT('User text')
MONMSG MSGID(CPF0000) EXEC(DO)
GOTO CMDLBL(ENDPGM)
ENDDO

/* Process . . . . */

ENDPGM: ENDPGM
************** CLP01 **************************************

The ROXMBX command display a window with message and if the user press F12 or F3
it returns a CPF9897 message *ESCAPE.
The ROXMBX program is a CLLE + RPGLE *MODULE

ROXMBX program
.-------------------------------------------------------------------------------------.
! ROXMBXC (CLLE *MODULE) !
+-------------------------------------------------------------------------------------+
! ROXMBXR (RPGLE *MODULE) !
!. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .!
! SndPgmMsg procedure
C callp QMHSNDPM(SndMsg: Id message
C Msgf: fichier message
C SndMsgDta: %len(%trim(SndMsgDta)): Texte message
C '*ESCAPE': type message
C '* ': Call stack
C 3: Call Stack count
C MsgKey: Msg key
C *Null) Error
'-------------------------------------------------------------------------------------'

Compilation script :
CRTCLMOD MODULE(&OL/ROXMBXC) SRCFILE(&OL/&SF) SRCMBR(*MODULE) DBGVIEW(*SOURCE)
CRTSQLRPGI OBJ(&OL/ROXMBXR) SRCFILE(&SL/&SF) COMMIT(*NONE) OBJTYPE(*MODULE) DBGVIEW(*SOURCE)
CRTPGM PGM(&OL/ROXMBX) MODULE(&OL/ROXMBXC &OL/ROXMBXR) ENTMOD(&OL/ROXMBXC) ACTGRP(*CALLER)

If the user press F12, CLP01 receive message (MONMSG) and return to the RPG01 program.
RPG01 receive error message too (RPG0202), I don't understand why.

Thank you for your help.

Bruno

Le 4 mars 2020 à 15:42, Bruno VARON <bvaron@xxxxxxxxxxx> a écrit :

Hello *ALL,
I have an RPGIII (OPM) program who call an CLP (OPM) program.This CLP program call a command, and the command return an escape message.
No problem, on the CLP: MONMSG CPF0000 EXEC(GOTO ENDPGM)
The thing that I don't understand is that the RPGIII program detect error message too and send me RPG0202 error message.
If I convert my RPGIII to RPGIV, it works fine, I just would like to understand.
Any idea ?
Thanks
Os V7R2M0
Bruno VARON

Bruno VARON