mainframe - 如何通过 REXX 列出一个 GDG 基础属性

Question

如何通过 REXX 代码了解GDG 基础属性；当然，我们可以通过File-aid 3.2选项查看 GDG 限制，但需要动态列出属性，并且可以在连续的程序/模块中使用。希望让你清楚，等待回复！（如果需要任何其他信息，请告诉我？）

Answer 1

在 REXX 中，您可以定位 TSO，然后使用以下listcat命令：

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

其中 XXX 是 GDG 基数。

要捕获 TSO 输出，请查看 OUTTRAP，它可以捕获大多数 TSO 命令的输出 - 我没有专门测试过listcat，因为我家里的桌子下面没有 z900 :-) 我明天在工作中试一试.

Call OutTrap "xyzzy."

应该给你输出到xyzzystem 变量中，你可以通过以下方式停止捕获：

Call OutTrap "off"

Answer 2

像这样的事情应该这样做。

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

Answer 3

对上述建议的一个警告......如果您只想要 GDG 条目，您可能需要考虑删除 LISTCAT ENTRY('XXX') ALL 行上的关键字 ALL。我相信 ALL 单词将列出恰好与目录条目名称匹配的 GDG 和非 GDG 数据集。