RE: Need Help With QMHRCVM - Receive Nonprogram Message API

[Kevin Wright <Kevin.Wright@xxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Hi Joe,

Your binary fields are all 4 digits not 4 bytes. The accepted wisdom is to
use 10I, or if you must, 9B, instead of 4B.

Regards,

Kevin W.

> -----Original Message-----
> From: Joe Giusto [mailto:jgiusto@RITZCAMERA.COM]
> Sent: Wednesday, 30 October 2002 10:20
> To: RPG400-L@midrange. com (E-mail)
> Subject: Need Help With QMHRCVM - Receive Nonprogram Message API
>
>
> I am having trouble calling this API.  I have searched for
> hours and can
> only find examples of using List type API's.
> Can someone tell me what I am missing in the following
> definition.  I keep
> getting error CPF24B4 - Severe error while addressing parameter list.
>
> TIA
>
> 0001.00 D                 DS                  INZ
> 0002.00 DMSGINFO                        80
> 0003.00 DMSGINFOLENGTH                   4B 0 INZ(%SIZE(MSGINFO))
> 0004.00 DMSGFORMAT                       8    INZ('RCVM0100')
> 0005.00 DMSGQUENAME                     20
> 0006.00 DMSGTYPE                        10
> 0007.00 DMSGKEY                          4
> 0008.00 DMSGWAITTIME                     4B 0
> 0009.00 DMSGACTION                      10    INZ('*SAME')
> 0010.00 DMSGERROR                      116
> 0011.00 D
> 0012.00 DRCVM0100         DS                  INZ
> 0013.00 DRCVBYTESRETURN                  4B 0
> 0014.00 DRCVBYTESAVAIL                   4B 0
> 0015.00 DRCVMSGSEVERITY                  4B 0
> 0016.00 DRCVMSGID                        7
> 0017.00 DRCVMSGTYPE                      2
> 0018.00 DRCVMSGKEY                       4
> 0019.00 DRCVRESERVED                     7
> 0020.00 DRCVCCID                         4B 0
> 0021.00 DRCVCCID2                        4B 0
> 0022.00 DRCVRPLLENRET                    4B 0
> 0023.00 DRCVRPLLENAVL                    4B 0
> 0024.00 DRCVMESSAGE                     10
> 0025.00 D ERRORDS         DS                  INZ
> 0026.00 D  BYTESPROV              1      4B 0 INZ(116)
> 0027.00 D  BYTESAVAL              5      8B 0
> 0028.00 D  MESSAGEID              9     15
> 0029.00 D  ERR###                16     16
> 0030.00 D  MESSAGEDTA            17    116
> 0031.00 C
> 0032.00 C     *ENTRY        PLIST
> 0033.00 C                   PARM
> EPMSGQNAME       10
> 0034.00 C                   PARM                    EPMSGQLIB
>        10
> 0035.00 C                   PARM                    EPMSGTYPE
>        10
>
> 0036.00 C
> 0037.00 C                   MOVEL     EPMSGQNAME    MSGQUENAME
> 0038.00 C                   MOVE      EPMSGQLIB     MSGQUENAME
> 0039.00 C
> 0040.00 C                   CALL      'QMHRCVM'
> 0041.00 C                   PARM                    MSGINFO
> 0042.00 C                   PARM                    MSGINFOLENGTH
> 0043.00 C                   PARM                    MSGFORMAT
> 0044.00 C                   PARM                    MSGQUENAME
> 0045.00 C                   PARM      EPMSGTYPE     MSGTYPE
> 0046.00 C                   PARM                    MSGKEY
> 0047.00 C                   PARM                    MSGWAITTIME
> 0048.00 C                   PARM                    MSGACTION
> 0049.00 C                   PARM                    ERRORDS
> 0050.00 C
> 0051.00 C
> 0052.00 C                   EVAL      *INLR = *ON
>
> Joe Giusto II
> Programmer/Analyst
> Ritz Camera
> Beltsville, MD
> 301-419-3209 x347
> 410-813-2812 x347
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>