我有四个库，每个库都有一组不同的程序选择。不幸的是我无法用SQL删除库中未使用的程序，因为我需要将它们退出（因此它们不会留在我们的客户端服务器上）。
有没有办法为此制作CL程序？我们的高级程序员说它无法完成，但我想在被迫手动退出2300个对象之前探索所有可能性。
它最初是Aldon变更管理软件中的一个功能，我确实有一个SQL查询来选择所需的对象。
答案 0 :(得分：3)
我认为现在帮助原始海报为时已晚，但供将来参考......
“Retire”是Rocket Aldon Lifecycle Manager用于IBM i，又名Aldon LM（i）的概念。 IBM i的变更管理系统（CMS）。
请注意，大多数（如果不是全部）Aldon屏幕都遵循F13-Repeat的标准IBM i UI功能，以填充具有相同值的所有子文件记录的选项字段。
因此，请检查单个任务的所有对象。如果需要，可以使用ACMSCHKOUT或ACMSADDPJO命令。
然后，只需进入“使用对象工作”屏幕查看该任务上的对象，选择25-退出第一个对象并按F13-重复以重复所有对象的选项，然后按Enter键。
正常推广和部署任务。
答案 1 :(得分：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