我有四个库，每个库都有一组不同的程序选择。不幸的是，我无法使用 SQL 删除库中未使用的程序，因为我需要停用它们（因此它们不会留在我们的客户端服务器上）。
有没有办法为此制作一个 CL 程序？我们的高级程序员说做不到，但我想在被迫手动淘汰 2300 个对象之前探索每一种可能性。
它最初是 Aldon 变更管理软件中的一个功能，我确实有一个 SQL 查询来选择所需的对象。
问问题
931 次
2 回答
3
我想现在帮助原始海报为时已晚，但供将来参考......
“退休”是 IBM i 的 Rocket Aldon 生命周期管理器（又名 Aldon LM(i)）使用的概念。IBM i 的变更管理系统 (CMS)。
请注意，如果不是所有 Aldon 屏幕，大多数（如果不是全部）都遵循 F13-Repeat 的标准 IBM i UI 功能，以使用相同的值填充所有子文件记录的选项字段。
因此，将所有对象签出到单个任务中。如果需要，可以使用 ACMSCHKOUT 或 ACMSADDPJO 命令。
然后，只需进入该任务中对象的“使用对象”屏幕，放置一个选项 25-Retire of the first object，然后按 F13-Repeat 为所有对象重复该选项，然后按 Enter。
像往常一样提升和部署任务。
于 2014-02-03T20:14:28.457 回答
2
我不明白在您的上下文中退休和删除之间的区别，但这里有一个示例 CL，用于读取程序对象文件并删除它们。
它假定输入一个名为DLTFILE的文件，其中包含LIB和PGM字段。
PGM
DCLF FILE(DLTFILE)
LOOP: RCVF RCDFMT(DLTFILE)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(BREAK))
DLTPGM(&LIB/&PGM)
GOTO CMDLBL(LOOP)
BREAK: ENDPGM
于 2013-07-05T06:53:08.370 回答