AS400中WRKACTJOB选Opt.7显示消息的对应命令及SQLRPGLE回复可行性

1. WRKACTJOB中Opt.7对应的底层命令 #

在WRKACTJOB里选择Opt.7查看MSGW状态作业的消息，对应的核心命令是DSPMSG，需指定目标作业的消息队列或作业标识：

# 针对作业专属消息队列
DSPMSG MSGQ(QSYS/[作业名]) JOB([作业号]/[用户名]/[作业名])

# 若消息队列为用户队列
DSPMSG MSGQ([用户名])

另外，执行WRKJOB [作业标识]后选择Opt.5（Work with messages）也能实现相同效果，本质是调用消息队列的显示逻辑。

2. SQLRPGLE中回复MSGW消息的可行性 #

完全可行，以下是几种常用实现方式：

调用系统API #

使用IBM i原生消息处理API完成消息接收与回复：

• QMHRCVPM：接收MSGW状态的消息，获取消息键等关键信息
• QMHSLPM：根据获取到的消息键发送回复内容

SQLRPGLE中可直接嵌入RPGLE调用语法：

Dcl-Pr QMHRCVPM ExtPgm('QMHRCVPM');
  MsgBuf        Char(2000);
  BufLen        Int(10) Const;
  FormatName    Char(8) Const;
  MsgQName      Char(20) Const;
  MsgQLib       Char(10) Const;
  MsgType       Char(10) Const;
  MsgKey        Char(4);
  WaitTime      Int(10) Const;
  ErrorCode     Like(QUSEC);
End-Pr;

Dcl-Pr QMHSLPM ExtPgm('QMHSLPM');
  MsgKey        Char(4) Const;
  ReplyMsg      Char(512) Const;
  ReplyLen      Int(10) Const;
  MsgQName      Char(20) Const;
  MsgQLib       Char(10) Const;
  ErrorCode     Like(QUSEC);
End-Pr;

先调用QMHRCVPM获取待回复消息的键值，再通过QMHSLPM发送自定义回复文本。

调用CL命令 #

在SQLRPGLE中通过CALL执行CL命令，比如用RPYMSG直接回复指定消息：

Exec SQL CALL QSYS2.CL_COMMAND('RPYMSG MSGKEY(''0001'') MSGQ(QSYS/MYJOB) RPY(''确认执行操作'')');

需确保程序拥有操作目标消息队列的权限，且消息键、队列名称参数准确。

结合SQL与RPGLE特性 #

先用SQL查询系统表（如QSYS2.ACTIVE_JOBS）筛选出MSGW状态作业的消息队列信息，再调用API或CL命令完成自动回复，适配监控程序的需求。

内容的提问来源于stack exchange，提问作者sigsag