JT400

Question

是否可以从 JT400 回复 AS400 中的 MSGW 作业？
我有 Job 元素，我可以通过 Job.MESSAGE_REPLY_WAITING

知道它是否处于 MSGW 状态

例如：通常我通过 WRKACTJOB

使用 "C"

Answer 1

我还没有真正尝试过这个，但请看一下 MessageQueue (JTOpen 中的 reply 函数。

Answer 2

大卫是正确的...但我认为缺少几个步骤..请注意我也没有尝试过..

获取作业日志：
Job.getJobLog()

获取排队的消息
JobLog.getMessages

获取消息队列
QueuedMessage.getQueue()

然后回复
MessageQueue.reply()

Answer 3

这是有效的代码。我认为它可以缩短和优化。
一定有更好的方法！

public boolean answer(String answer) throws MyOperationException {
   if (answer == null || answer.length() > 1) {
      throw new MyOperationException();
   }

   MessageQueue msgq = new MessageQueue(as.getAS400(), QSYSObjectPathName.toPath(MyAS400.LIBRARY_LIST, "QSYSOPR", "MSGQ"));
   msgq.setSelectMessagesNeedReply(true);
   msgq.setListDirection(false);

   try {
      Enumeration m = msgq.getMessages();

      while (m.hasMoreElements()) {
         QueuedMessage msg = (QueuedMessage) m.nextElement();

         if (msg.getFromJobNumber().trim().equals(getNumber())) {
            msgq.reply(msg.getKey(), answer);

            return true;
         }
      }
   } catch (AS400SecurityException | ErrorCompletingRequestException | InterruptedException | IOException | ObjectDoesNotExistException ex) {
      ex.printStackTrace();
   }

   return false;
}

如果不知道消息队列，可以使用ObjectList。

JT400 - 回复 MSGW 作业

JT400 - Replying to MSGW Job

jobs

ibm-midrange