Ibm midrange CL（IBMi系列）中的程序，它使库对象失效？

我有四个库，每个库都有一组不同的程序选择。不幸的是，我不能用SQL删除库中未使用的程序，因为我需要使它们退役（这样它们就不会留在我们的客户机服务器上）

有没有办法为此制定一个CL计划？我们的高级程序员说这是做不到的，但我想在被迫手动淘汰2300个对象之前探索每一种可能性

---

它最初是Aldon change management软件中的一个函数，我有一个SQL查询来选择所需的对象

在您的上下文中，我不理解retire和delete之间的区别，但这里有一个示例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

---

在您的上下文中，我不理解retire和delete之间的区别，但这里有一个示例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

---

我想现在帮助原创海报已经太晚了，但为了将来的参考

“退休”是Rocket Aldon Lifecycle Manager为IBM i使用的一个概念，也称为Aldon LM（i）。IBMi的变更管理系统（CMS）

请注意，大多数（如果不是所有的话）Aldon屏幕都遵循F13 Repeat的标准IBM i UI功能，以使用相同的值填充所有子文件记录的选项字段

因此，将所有对象签出到单个任务。如果需要，请使用ACMSCHKOUT或ACMSADDPJO命令

然后，只需进入任务对象的“使用对象”屏幕，输入第一个对象的选项，然后按F13 Repeat对所有对象重复该选项，然后只需按enter键

---

按正常方式推广和部署任务。

我想现在帮助原始海报已经太迟了，但供将来参考

“退休”是Rocket Aldon Lifecycle Manager为IBM i使用的一个概念，也称为Aldon LM（i）。IBMi的变更管理系统（CMS）

请注意，大多数（如果不是所有的话）Aldon屏幕都遵循F13 Repeat的标准IBM i UI功能，以使用相同的值填充所有子文件记录的选项字段

因此，将所有对象签出到单个任务。如果需要，请使用ACMSCHKOUT或ACMSADDPJO命令

然后，只需进入任务对象的“使用对象”屏幕，输入第一个对象的选项，然后按F13 Repeat对所有对象重复该选项，然后只需按enter键

---

正常升级和部署任务。

如果不删除，您所说的“退出”是什么意思？最好更明确地说明“退出”的含义。不要让人们猜测或研究它。不是每个人都熟悉奥尔顿。手动停用对象时，您必须执行什么操作？这需要什么？将资料转移到其他图书馆？将内容放入保存文件？什么？如果不删除，你说退休是什么意思？如果你更明确地说“退休”是什么意思，那就更好了。不要让人们猜测或研究它。不是每个人都熟悉奥尔顿。手动停用对象时，您必须执行什么操作？这需要什么？将资料转移到其他图书馆？将内容放入保存文件？什么？退休功能是Aldon生命周期管理系统的一项功能。这个问题可能比我想的更难。如果Aldon有一个“retire”API，您可以使用James的程序来调用它，而不是DLTPGM。这里是指向Aldon文档的链接。我没有找到API，但是如果你四处看看，你可能会发现一些东西。退休功能是Aldon生命周期管理系统的一项功能。这个问题可能比我想的更难。如果Aldon有一个“retire”API，您可以使用James的程序来调用它，而不是DLTPGM。这里是指向Aldon文档的链接。我没有找到API，但是如果你四处看看，你可能会发现一些东西。