RE: MSGQ

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

rpg400-l-request@xxxxxxxxxxxx wrote:

>   5. MSGQ (RPower@xxxxxxxxxx)
>
>While this is not RPG related, I have no where else to go at this point. 
>Does anyone know how to view the current attributes of a MSGQ (namely the 
>SIZE()) so that I can see them before I try to change them?  All CHGMSGQ 
>does is show *SAME for them all, and you have no idea what they used to be 
>to begin with.

Before this question gets totally buried in a blizzard of 'XLATE vs. SCAN vs. 
[your favorite here]' -- here's a generic snippet of CL that might point you in 
a useful direction:

---------------- Begin copy/paste
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 )
   dcl   &Sev          *dec  (  9 0 )


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

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

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

 dmpclpgm

   return

endpgm
---------------- End copy/paste

Converting it to RPG could be done in a few minutes depending on how fancy you 
want to get.

The snippet calls the Retrieve Nonprogram Message Queue Attributes (QMHRMQAT) 
API against the QSYSOPR message queue that it finds in the job's library list. 
It then extracts the Message queue full action, the Current storage size and 
the Severity code filter attributes from the structure returned from the API, 
and dumps the CL program. The extracted attribute values are just 
representative of some attributes with storage size particularly included.

Maybe it's what you're after. If not, ask again and we can try again.

Tom Liotta

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


__________________________________________________________________
Introducing the New Netscape Internet Service. 
Only $9.95 a month -- Sign up today at http://isp.netscape.com/register

Netscape. Just the Net You Need. 

New! Netscape Toolbar for Internet Explorer
Search from anywhere on the Web and block those annoying pop-ups.
Download now at http://channels.netscape.com/ns/search/install.jsp