ibm iSeries AS400宏页向下到最后一页

Question

尝试为我执行End of Day创建一个宏，我必须终止IBM AS400 iSeries上的所有活动会话。这个过程的一部分是在所有用户旁边放1，然后向下翻页，然后重复。

目前我在WMS Shutdown屏幕上有一个宏，只需在该页面上的所有用户旁边放一个1并自动向下翻页。我必须继续按下该按钮，直到我到达最后一页，我将在其中输出错误，然后必须处理shutdown命令以终止所有活动用户。

我一直在努力磨练这个，所以我只需要按一下它就会自动删除所有用户。逐页宏看起来像这样：

sudo systemctl start postgresql

当我到达最后一页时，这将出错，我必须按Tab键清除错误消息然后继续。有没有办法做Do While / Until循环，直到我再也无法向下翻页或WaitForInputReady在没有更多的InputReady之后超时？

任何帮助将不胜感激

Answer 1

假设您在没有做任何其他事情的情况下终止所有交互式用户。

假设您的用户在默认的QINTER子系统中运行，并且您的控制台在默认的QCTL子系统中运行...

然后从控制台，一个简单的ENDSBS SBS(QINTER) OPTION(*IMMED)将终止所有用户作业。