如何列出通过REXX一个GDG基本属性

Question

如何知道的 GDG基通过REXX代码属性;当然，我们可以查看GDG极限通文件援助3.2 选项，但需要列出的飞行性能，并且可以在连续的程序/模块一起使用。希望让你清楚并等待答复！ （不要让我知道，如果需要任何其他信息？）

Answer 1

一个caveate上述建议...如果你只是想GDG条目，你可能需要考虑在LISTCAT ENTRY（“XXX”）ALL行移除关键字ALL。我相信所有字会列出正好匹配目录条目名称GDG及非GDG数据集。

Answer 2

从REXX，就可以指定TSO然后使用listcat命令：

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

其中XXX是GDG基

有关捕捉TSO输出，看看到OUTTRAP它可以捕获输出从最TSO命令 - 我还没有专门测试listcat，因为我没有在家里我的办公桌下Z900 :-)我给它一个射击在明天的工作。

Call OutTrap "xyzzy."

应该给你的输出入xyzzy干变量并且可以与停止捕获：

Call OutTrap "off"

Answer 3

像这样的东西应该这样做。

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