RE: Message queue full action and size

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

Jim:

Review documentation for the Retrieve Nonprogram Message Queue Attributes 
(QMHRMQAT) API. The following CLP might help illustrate the documentation:

pgm

   dcl   &ErrCod       *char    8   value( x'0000000000000000' )

   dcl   &qMQ          *char   20

   dcl   &rcvvar       *char  150

   dcl   &MQfull       *char   10
   dcl   &CurSiz       *dec  (  9 0 )


   chgvar    &qMQ       ( 'JIMD      ' *cat '*LIBL     ' )

   call QMHRMQAT         ( +
                           &rcvvar      +
                           x'00000096'  +
                           'RMQA0100'   +
                           &qMQ         +
                           &ErrCod      +
                         )

   chgvar    &MQFull       %sst( &RcvVar  141  10 )
   chgvar    &CurSiz       %bin( &RcvVar   33   4 )

 dmpclpgm

   return

endpgm

You might be able to modify it to suit your needs or use it to see how you can 
code it in another language.

Tom Liotta

midrange-l-request@xxxxxxxxxxxx wrote:

>   5. Message queue full action and size (Jim Damato)
>
>Does anyone know if there's a way to retrieve the message queue size
>parameters and message queue full action settings for existing message
>queues?  Also, is there a way to find the creation parameters for a message
>queue created via CRTUSRPRF MSGQ(*USRPRF)?

-- 
-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
Try AOL and get 1045 hours FREE for 45 days!
http://free.aol.com/tryaolfree/index.adp?375380

Get AOL Instant Messenger 5.1 for FREE! Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promos=380455