Come elencare una proprietà di base GDG attraverso REXX

Question

Come sapere base di GDG le proprietà tramite codice REXX; Naturalmente siamo in grado di visualizzare il limite GDG attraverso File-AID 3.2 , ma necessità di elencare le proprietà in tempo reale e possono essere utilizzati in programma / modulo consecutivo. La speranza ti ha fatto chiaro e in attesa di risposta! (Non vorrei sapere se è richiesto ogni altra informazione?)

Answer 1

Una caveate al suggerimento di cui sopra ... Se desideri solo voci GDG potrebbe essere necessario prendere in considerazione la rimozione della parola chiave ALL sul LISTCAT ENTRY ( 'XXX') ALL linea. Credo che la parola ALL elencherà GDG & Non-GDG set di dati che accadono a corrispondere al nome voce di catalogo.

Answer 2

Da REXX, è possibile indirizzare TSO quindi utilizzare il comando listcat:

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

dove XXX è la base GDG.

Per l'acquisizione di uscita TSO, sguardo OUTTRAP che può catturare l'output di maggior parte dei comandi TSO - non ho specificamente testato listcat dal momento che non ho una z900 sotto la mia scrivania a casa :-) darò un colpo a lavoro domani.

Call OutTrap "xyzzy."

dovrebbe darvi l'output nella variabile stelo xyzzy e si può interrompere l'acquisizione con:

Call OutTrap "off"

Answer 3

Qualcosa del genere dovrebbe farlo.

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