Comment lister une des propriétés de base GDG par REXX

Question

Comment savoir Base GDG propriétés par le code REXX; Bien sûr, nous pouvons voir la limite GDG à travers Fichier d'aide 3.2 Mais besoin d'énumérer les propriétés à la volée et peut être utilisé dans le programme consécutif / module. vous espérez clairement et en attente de réponse! (Ne laissez-moi savoir si une autre information est nécessaire?)

Answer 1

Un caveate à la suggestion ci-dessus ... Si vous voulez que les entrées GDG vous devrez peut-être envisager de supprimer le mot-clé ALL sur l'entrée LISTCAT ( « XXX ») toutes les lignes. Je crois que le mot ALL liste des ensembles de données GDG et non GDG qui font correspondre le nom d'entrée de catalogue.

Answer 2

De REXX, vous pouvez cibler TSO puis utilisez la commande listcat:

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

où XXX est la base GDG.

Pour capturer la sortie de TSO, regardez dans OUTTRAP qui peut capturer la sortie de la plupart des commandes TSO - Je ne l'ai pas testé listcat spécifiquement depuis que je n'ai pas z900 sous mon bureau à la maison :-) Je vais vous donner un tir à travail demain.

Call OutTrap "xyzzy."

devrait vous donner la sortie dans la variable de la tige de xyzzy et vous pouvez arrêter la capture avec:

Call OutTrap "off"

Answer 3

Quelque chose comme ça devrait le faire.

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