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

[Brad Stone <bvstone@xxxxxxxxx>]

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
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.