有没有办法从 VBA 询问 AS400 作业的状态？

Question

我正在尝试在 Access 中提供一个用户界面来显示计划的 AS400 作业的状态，以将它们显示为挂起、运行或完成。

我继承了一些安排多个作业的代码，这些作业运行良好 - 但用户无法看到作业状态，有时它们会挂起。

目前通过作业更新的表中的数字计数器发出完成信号，并且有一个定期检查完成的表单计时器事件。

使用此方法，代码可以判断 AS400 上的处理何时完成，但无法判断它是否挂起或失败，或者服务器是否负载过重且运行缓慢。

我试图在 Internet 上查找代码示例，但结果一片空白。我能找到的只有 IBM 数据库手册（pdf 和在线）和 IBM 的 Troy C Bleeker 的题为“iSeries Access ActiveX Development”的 pdf 幻灯片。

使用这些资源，我使用 IBM i Access for Windows ActiveX 对象库 (cwbx) 编写了一些代码来与运行良好的 AS400 通信，我可以发出 WRKUSRJOB 命令来检查作业状态，但我可以'不知道如何（甚至是否）可以查看命令的结果。

有没有办法做到这一点，如果有，怎么做？

Dim SysNames As New cwbx.SystemNames
Dim SvrName As String
Dim Svr As New cwbx.AS400System
Dim Svc As cwbx.cwbcoServiceEnum
Dim Cmd As New cwbx.Command
Dim x As New cwbx.DataQueue

'Set server name
SvrName = SysNames.DefaultSystem
Debug.Print SvrName
Svr.Define SvrName

'Set service type
Svc = cwbcoServiceRemoteCmd

'Connect and test
Svr.Connect Svc
Debug.Print Svr.IsConnected(Svc)

'Command
Set Cmd.System = Svr
Debug.Print "WRKUSRJOB"
Cmd.Run "WRKUSRJOB"

```
'How to get results of the command? Nothing in Errors
Debug.Print SprintF("Errors: %s", Cmd.Errors.Count)
```

'Tidy up
Svr.Disconnect Svc

'Object destruction
Set Cmd = Nothing
Set Svr = Nothing
Set SysNames = Nothing

如果错误集合包含命令的结果，或者它们可以通过管道传输或重定向到 ActiveX 可以读取的文件或队列，那就太好了，但我一直画一个空白。

编辑：我的客户端安装了 v7r1 并且正在逐步淘汰 db2，因此不可能升级到更新的版本。

Answer 1

假设您使用的是受支持的 IBM i 版本，

看看Db2 for i Services...

特别是
QSYS2.ACTIVE_JOB_INFO()
QSYS2.GET_JOB_INFO()

示例：

select *
from table (QSYS2.GET_JOB_INFO('123456/MYUSER/MYJOB')) as X;  

Answer 2

经过多次反复试验，我想我终于破解了它。

解决方案是使用两个直通查询：

1. 使用 CL 命令DSPJOBLOG 将作业日志转储到文件中
2. 读取新建文件的内容

CALL QSYS2.QCMDEXC('DSPJOBLOG OUTPUT(*OUTFILE) OUTFILE(XXXXXXXX/TEST1)',50)

SELECT * FROM XXXXXXXX.TEST1

非常感谢您的建议和指点，特别感谢 Charles 提供的所有详细 DB2 知识，以及 Mandy 的重要澄清。

@Charles 我赞成你的回答，但不幸的是，我还没有足够高的声誉来公开展示它。

Answer 3

AS400没有返回作业状态的命令吗？

我不知道 as400，但是像 WRKACTJOB 之类的东西，或者任何列出工作的命令必须存在？我看不出有任何理由使用一些特殊的 API。

如果您有或可以在 as400 中设置命令以返回作业状态，那么在访问中您可以简单地使用 PT 查询将该命令作为 sql 文本。

不清楚您是要查询特定职位，还是只显示所有职位？因此，如果您有一些 as400 代码或返回作业状态的命令，则将该命令放在 PT 查询中，并将您的表单基于该 PT 查询。然后，您可以添加一个计时器以每 5 秒或您想要的任何内容重新显示一次。通过在 Access 中使用 PT 查询，几乎不需要在 Access 中编写任何代码。