質問

知る方法 GDGベース REXX コードによるプロパティ。もちろん、GDG 制限を確認することもできます。 ファイルエイド 3.2 オプション ただし、その場でプロパティをリストする必要があり、連続したプログラム/モジュールで使用される可能性があります。希望が明確になったので、応答を待っています。(その他の情報が必要な場合はお知らせください。)

役に立ちましたか?

解決

上記の提案に対する一つのcaveate ...あなただけのGDGエントリをしたい場合は、LISTCATのENTRY(「XXX」)ALL行にキーワードALLを削除することを検討する必要があるかもしれません。私はすべての単語は、カタログエントリ名を一致させるために起こるGDG&非GDGデータセットの一覧が表示されます信じています。

他のヒント

REXXから、あなたはlistcatコマンドを使用し、その後TSOをターゲットにすることができます

ADDRESS TSO
"LISTCAT ENTRY('XXX') ALL"
XXXは、GDGベースである

TSO出力をキャプチャするために、

、ほとんどのTSOコマンドからの出力をキャプチャすることができますOUTTRAPに見て - 私は自宅で私の机の下のz900を持っていないので、:-)私はそれをあげる私は、具体的listcatをテストしていません職場でのショット明日ます。

Call OutTrap "xyzzy."
あなたxyzzy幹変数に出力を与える必要があり、あなたがしてキャプチャを停止することができます:

Call OutTrap "off"

このような何かがそれを行う必要があります。

/* 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  
ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top