Need Help With QMHRCVM - Receive Nonprogram Message API

["Joe Giusto" <jgiusto@xxxxxxxxxxxxxx>]

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