Re: Answering to a Job in MSGW from a CL/RPGLE program

Looks like Send Reply Message (QMHSNDRM) API is "the same" as SNDRPY

Bryan


Brad Stone wrote on 10/28/2024 7:56 AM:

I wrote this a long time ago, but you need the hex value of job. "reply"
is the reply you're sending:

QCmdCmd = 'SNDRPY MSGKEY(X''' +
%trim(hexkey) +
''') MSGQ(QSYSOPR) RPY(''' +
%trim(reply) +
''') RMV(*NO)';
callp(e) #QCmdExc(QCmdCmd:%len(%trimr(QCmdCmd)));

On Sun, Oct 27, 2024 at 10:07 AM gio.cot via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Hi All

I would need to write a program that shows Job in Msgw (in a subfile) and
then allow to reply from RPG program to the message .

For the program that shows job in Mswg i found this at
https://www.rpgpgm.com/2016/11/creating-program-to-show-jobs-in.html, but
i
have not found an example how to answer (via rgple program) to message with
R-G-O or other reply available

Thanks for suggestions

Gio