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) endpgmDave...
Comment