Буквально сегодня столкнулся с банальной задачей получения списка файлов в библиотеке при помощи REXX. Однако, поиск решения оказался несколько более сложным, чем казалось ранее =) Хотя решение и оказалось совсем простым.
Итак, смотрим код:
/*REXX*/ ADDRESS tso INPUT = 'полный путь библиотеки' X = OUTTRAP(MEMS.) "LISTDS '"INPUT"' MEM" X = OUTTRAP(OFF) DO I=7 TO MEMS.0 MEMS.I = STRIP(MEMS.I) SAY 'MEMBER:'MEMS.I END EXIT
Список создается непосредственно в результате выполнения команды TSO LISTDS. Первые 6 строк результата - дополнительные данные, после которых следует список файлов.
Как Вы догадались, имена файлов достаются в цикле из массива MEMS.
Последние комментарии
4 года 51 недели назад
4 года 51 недели назад
5 года 4 дня назад
5 года 4 дня назад
5 года 1 неделя назад
5 года 1 неделя назад
5 года 1 неделя назад
5 года 1 неделя назад
5 года 2 недели назад
5 года 2 недели назад