Wie man eine GDG Basiseigenschaften durch REXX auflisten

Question

Wie kann man wissen GDG Basis Eigenschaften durch REXX-Code; Natürlich können wir die GDG Grenze durch Datei-Hilfe 3.2 Option müssen aber zeigen Sie die Eigenschaften im Fluge zur Liste und kann in aufeinanderfolgenden Programm / Modul verwendet werden. Hoffnung machte man klar und wartet auf Antwort! (Lassen Sie mich wissen, wenn andere Informationen benötigt?)

Answer 1

Eine caveate der obigen Vorschlag ... Wenn Sie nur GDG Einträge wollen, müssen Sie möglicherweise das Entfernen des Schlüsselwort ALL auf dem LISTCAT ENTRY ( ‚XXX‘) ALL Linie berücksichtigen. Ich glaube, das ALL Wort listet GDG & Non-GDG Datensätze, die den Katalogeintrag Namen übereinstimmen passieren.

Answer 2

Von REXX können Sie TSO Ziel dann den listcat Befehl:

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

wobei XXX für die GDG Base ist.

Für TSO Ausgang Erfassung, Blick in OUTTRAP, die die Ausgabe von den meisten TSO-Befehle erfassen kann - ich habe nicht speziell listcat getestet, da ich kein z900 unter meinem Schreibtisch zu Hause haben :-) Ich werde es ein Schuss bei der Arbeit morgen.

Call OutTrap "xyzzy."

sollten Sie den Ausgang in die xyzzy Stammvariable geben und Sie können das Capture zu stoppen, mit:

Call OutTrap "off"

Answer 3

So etwas sollte es tun.

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