Question

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

Answer 1

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

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

其中XXX是GDG基地。

为了捕获TSO输出，请查看OUTTRAP，它可以捕获大多数TSO命令的输出 - 我没有专门测试listcat，因为我家里桌子下面没有z900 :-)我我明天就可以开始工作了。

Call OutTrap "xyzzy."

应该输出xyzzy词干变量，你可以用：

停止捕捉

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。我相信所有单词都会列出GDG＆amp;碰巧与商品名称匹配的非GDG数据集。

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

3 个答案: