Как перечислить базовые свойства GDG через REXX

StackOverflow https://stackoverflow.com/questions/2396182

  •  25-09-2019
  •  | 
  •  

Вопрос

Как знать База GDG свойства через код REXX; Конечно, мы можем просмотреть предел GDG через Файл-помощь 3.2 Опция, но необходимо перечислить свойства на лету и может использоваться в последовательной программе / модуле. Надеюсь заставило тебя очистить и ждать ответа! (Дайте мне знать, если какая-либо другая информация требуется?)

Это было полезно?

Решение

Один озеал к вышеуказанному предложению ... Если вы хотите только записи GDG, вам может потребоваться рассмотреть возможность удаления ключевого слова, все на ListCat Entry ('xxx') всей строки. Я считаю, что все Word будет перечислять наборы данных GDG & Non-GDG, которые могут соответствовать имени входа в каталог.

Другие советы

От Rexx вы можете нацелить TSO, а затем использовать listcat команда:

ADDRESS TSO
"LISTCAT ENTRY('XXX') ALL"

где XXX является базой GDG.

Для захвата вывода TSO посмотрите на Outtrap, который может захватить вывод от большинства команд TSO - я не тестировал специально listcat Поскольку у меня нет Z900 под моим столом дома :-) Я дам ему выстрел на работу завтра.

Call OutTrap "xyzzy."

должен дать вам вывод в xyzzy Переменная стебля, и вы можете остановить захват:

Call OutTrap "off"

Что-то вроде этого должно это сделать.

/* REXX */                                     

arg entry .                                    

call outtrap "listc."                          

"LISTCAT ENT("entry") GDG ALL"                 
if rc > 0 then exit 12                         

do i = 1 to listc.0                            
  if pos("LIMIT", listc.i) > 0 then do         
    limit = word(translate(listc.i,' ','-'),2) 
    say 'GDG limit is' limit                   
    leave                                      
  end                                          
end
Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top