Re: RPGIII OPM - Error message

[Peter Dow <petercdow@xxxxxxxxx>]

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