The RTVMSGQA  command  allows you  to extract  one  or more  parameters
from an  existing external message queue (not  program message queues).
This allows for various functions in working with message queues.

RTVMSGQA uses the system API QMHRMQAT to access the information.

A  typical use of the  command is to extract  the number of messages in
a message queue:

        DCL         &NBRMSGS *DEC LEN(10 0)
        .
        .
        RTVMSGQA    MSGQ(xxxx) NBRMSGS(&NBRMSGS)
        IF          (&NBRMSGS *GT 0) DO .....

The command  parameters may  be prompted  for  with the  command.   The
value in  the parenthesis for  each parameter describes the  length and
type  of  field to  be  specified in  your  CL program  to  receive the
parameter.

Command parameters                                    *CMD
------------------

   MSGQ          The  qualified  message  queue  name.    The   library
                 qualifier  defaults   to  *LIBL.     *CURLIB   may  be
                 specified.

The following return variables may be specified:

   Keyword     Len      Description
   -------     ---      -----------

   RTNLIB       10      Library where the MSGQ was found
   NBRMSGS      10 0    Number of messages
   SIZE         10 0    Size of the message queue
   INCSIZE      10 0    Increment size
   NBRINCS      10 0    Number of increments that have occurred
   MAXINCS      10 0    Maximum increments (15622 = *NOMAX)
   SEV           2 0    Severity code filter
   DLVRY         7      Delivery type (e.g. *BREAK)
   BRKPGM       10      Break program
   BRKPGMLIB    10      Break program library
   FORCE         4      Force to auxiliary storage
   ALWALR        1      Allow alerts (Y/N)
   FULLACN      10      Message queue full action
   CCSID         5 0    CCSID
   TEXT         50      Text description

Restrictions
------------

Because  the command  returns variables, it  can only  be used in  a CL
program.

Prerequisites
-------------

None.

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   RTVMSGQA      *CMD                   TAAMSGV       QATTCMD
   TAAMSGVC      *PGM       CLP         TAAMSGVC      QATTCL