Re: RPGIII OPM - Error message

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