Получаем список файлов библиотеки в REXX

Буквально сегодня столкнулся с банальной задачей получения списка файлов в библиотеке при помощи 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.

разве "файлы библиотеки", а

разве "файлы библиотеки", а не "разделы библиотеки"?

в данном случае - файлы.

в данном случае - файлы.

Отправить комментарий

  • Доступны HTML теги: <b> <i> <u> <br> <hr> <div> <span> <code> <pre>
  • Строки и параграфы переносятся автоматически.
  • You can enable syntax highlighting of source code with the following tags: <code>, <pli>.

Подробнее о форматировании

  _  _      ___  
| || | / _ \
| || |_ | (_) |
|__ _| \__, |
|_| /_/
Enter the code depicted in ASCII art style.