Re: Receive Program Message (QMHRCVPM) API

DRCVVAR S 512
DRCVLEN S 9B 0 INZ(%SIZE(RCVVAR))

HTH
Vern

Sent this to the RPG400 list and got no response  - I hope I don't annoy
anyone by being persistent.

(BTW - does anyone have samples of using the QMHRCVPM API in RPG iv?)

-----Original Message-----

Hi all,

I am trying to use the QMHRCVPM API in a RPG iv program at V5R2M0.  I keep
on getting the error CPF3C21 (Format name &1 is not valid) even though the
format I am using is RCVM0200. Can someone PLEASE tell me what I am doing
wrong???

The code looks like this:

D MSGDTA2 S 500

...
....
.....
D MSGAPI          DS
D  MSGLEN                 1      4B 0 INZ
D  CSTKCN                 5      8B 0 INZ
D  WAITTM                 9     12B 0 INZ
.....
.....
.....
C                   MOVE      'RCVM0200'    FMTNAM
C                   CALL      'QMHRCVPM'
C                   PARM                    MSGDTA2
C                   PARM      500           MSGLEN
C                   PARM                    FMTNAM            8
C                   PARM      '*'           CSTKEN           10
C                   PARM                    CSTKCN
C                   PARM      '*LAST'       MSGTYP           10
C                   PARM      *BLANKS       MSGKEY            4
C                   PARM                    WAITTM
C                   PARM      '*REMOVE'     MSGACT           10
C                   PARM                    ERRCDE            1

Thanks in advance.......

Rob Joubert
Authentic Fitness Corporation
(323) 837-6486
rjoubert@xxxxxxxxxxxxxxxxxxxx