QMHRMQAT

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

Thanks to Tom Liotta