Cómo hacer una lista de unas propiedades GDG base a través de REXX

Question

¿Cómo saber Base de GDG propiedades a través de código REXX; Por supuesto que podemos ver a través del límite GDG Archivo auxilios 3.2 Pero necesidad de enumerar las propiedades sobre la marcha y puede ser utilizado en el programa / módulo consecutivo. La esperanza le hizo clara y esperar la respuesta! (Do que me haga saber si se requiere cualquier otra información?)

Answer 1

Una caveate a la sugerencia anterior ... Si sólo desea que las entradas de GDG puede que tenga que considerar la eliminación de la palabra clave ALL en la entrada de LISTCAT ( 'XXX') toda la línea. Creo que la palabra ALL listará GDG y no GDG conjuntos de datos que pasan a coincidir con el nombre de entrada de catálogo.

Answer 2

A partir de REXX, puede orientar TSO a continuación, utilizar el comando listcat:

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

donde XXX es la base GDG.

Para capturar la salida TSO, mirada en OUTTRAP que puede capturar la salida de la mayoría de los comandos TSO - No he probado específicamente listcat ya que no tengo una z900 debajo de mi escritorio en casa :-) lo voy a dar una oportunidad de trabajo mañana.

Call OutTrap "xyzzy."

debe darle el resultado en la variable del tallo xyzzy y se puede detener la captura con:

Call OutTrap "off"

Answer 3

Algo así debe hacerlo.

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