API QMHRMQAT

[Guest.Visitor]

Something like this?

 pgm (&msgq &msgqlib &delivery) dcl &msgq *char 10 dcl &msgqlib *char 10 dcl &delivery *char 7 dcl &qualmsgq *char 20 dcl &rmqa0100 *char 160 chgvar &qualmsgq (&msgq *cat &msgqlib) call qmhrmqat (&rmqa0100 + x'000000a0' + RMQA0100 + &qualmsgq + x'0000000000000000') monmsg cpf0000 exec(do) /* Resend escape message */ call qmhrsnem (' ' + x'0000000000000000') enddo chgvar &delivery %sst(&rmqa0100 53 7) endpgm 

Dave...

[lls_51@yahoo.com]

API QMHRMQAT

I would like to use the API QMHRMQAT to retreive message Q break mode. I'm not having much luck at developing C/L program. Can anyone provied code in C/L to use this API? Thanks Larry L. Swain lls_51@yahoo.com