REXX を使用して GDG 基本プロパティをリストする方法

StackOverflow https://stackoverflow.com/questions/2396182

  •  25-09-2019
  •  | 
  •  

質問

知る方法 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