只读DB2使用REXX中的PDS(数据集)中的成员并存储在Stem变量中以进行相互处理

时间:2013-11-22 06:17:48

标签: mainframe rexx

我的要求就是在PDS成员中单独查找DML操作(如选择,插入,更新和删除).PDS数据集中有近19150个模块,只有6850模块使用DB2语句,剩下的属于任何一个报告或Ims模块。

A = OUTTRAP('VAR.')                       
"LISTDS '"DSN"' MEMBERS"                  
B = OUTTRAP('OFF')  

我已经开发了扫描PDS中的所有成员并将其存储在stem变量中然后根据用户输入的成员限定符,它将在stem varible中逐个搜索模块列表,以查找是否对找到的表执行了DML操作。

但是从成员列表19150获得结果几乎需要18分钟。只有6850个模块是DB2成员。有什么方法可以在存储在stem变量本身时筛选剩余成员?

请提供所有建议来获得这个?

1 个答案:

答案 0 :(得分:1)

正如@Bruce Martin所说,这些信息在DB2本身中可用。尝试阅读SYSIBM.SYSPACKSTMT DB2目录表。 STATEMENT列保存包的SQL,NAME列很可能对应于您尝试解析的PDS中的成员。