Como listar uma base de base GDG através do Rexx

Question

Como saber Base de GDG propriedades através do código rexx; Claro que podemos ver o limite de GDG através Aid-Aid 3.2 opção, mas precisa listar as propriedades em tempo real e pode ser usada em programa/módulo consecutivo. A esperança o deixou claro e esperando a resposta! (Deixe -me saber se alguma outra informação é necessária?)

Answer 1

Um Cavetate para a sugestão acima ... Se você deseja apenas entradas de GDG, pode ser necessário considerar remover a palavra -chave tudo na linha ListCat ('xxx') All Line. Acredito que o All Word listará conjuntos de dados GDG e não-GDG que por acaso correspondem ao nome de entrada do catálogo.

Answer 2

De Rexx, você pode segmentar TSO e depois usar o listcat comando:

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

onde xxx é a base do GDG.

Para capturar a saída do TSO, procure o Outtrap que possa capturar a saída da maioria dos comandos do TSO - não testei especificamente listcat Já que não tenho um Z900 embaixo da minha mesa em casa :-) Vou dar uma chance no trabalho amanhã.

Call OutTrap "xyzzy."

deve dar a você a saída no xyzzy variável STEM e você pode parar a captura com:

Call OutTrap "off"

Answer 3

Algo assim deve fazer isso.

/* 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