REXX を使用して GDG 基本プロパティをリストする方法
質問
知る方法 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
所属していません StackOverflow