Программа на CL (IBM i серии), которая удаляет объекты библиотеки?

Question

У меня есть четыре библиотеки, в каждой из которых есть свой набор программ. К сожалению, я не могу удалить неиспользуемые программы в библиотеке с SQL, так как мне нужно удалить их (чтобы они не оставались на наших клиентских серверах).

Есть ли способ сделать программу CL для этого? Наш старший программист говорит, что это не может быть сделано, но я хочу изучить все возможности, прежде чем вынудить вручную удалить 2300 объектов.

Первоначально это была функция в программном обеспечении для управления изменениями Aldon, и у меня есть SQL-запрос для выбора необходимых объектов.

Answer 1

Я предполагаю, что уже слишком поздно, чтобы помочь оригинальному постеру, но для дальнейшего использования...

"Уйти в отставку" - это концепция, используемая Rocket Aldon Lifecycle Manager для IBM i, также известная как Aldon LM(i). Система управления изменениями (CMS) для IBM i.

Обратите внимание, что большинство, если не все экраны Aldon соответствуют стандартной функции пользовательского интерфейса IBM i F13-Repeat, чтобы заполнить поле параметра всех записей субфайлов одним и тем же значением.

Итак, проверьте все объекты в одной задаче. Используя команды ACMSCHKOUT или ACMSADDPJO, если хотите.

Затем нужно просто перейти к экрану "Работа с объектами" для объектов в этой задаче, установив опцию 25-Retire для первого объекта и нажав F13-Repeat, чтобы повторить опцию для всех объектов, а затем просто нажать Enter.

Продвигайте и развертывайте задачу как обычно.

Answer 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