mainframe - 使用 Rexx 在 PDS 中查找与给定字符串匹配的成员

Question

我正在寻求有关我的 REXX 脚本的帮助。这应该打开一个现有的成员并搜索特定的字符串。

这是我的脚本：

 /* REXX */ 
"ALLOC FILE(input) DA('.....(MEMBER)') SHR REUSE"
"EXECIO * DISKR "input" (STEM input. FINIS"                    
"FREE FILE(input)"                                             
/* Parmlib werden ausgelesen */                                
do i =1 to input.0                                             
   if POS('met,', input.i) > 0 Then                            
      /* Code if string is found */                            
      say Zeile gefunden                                       
   else                                                        
     /*  Code if string is not found */                        
     say Zeile nicht gefunden                                  
end                                                            

标签： mainframerexx

Answer 1

正如 cschneid 所说，这看起来像是你只会使用 SuperC 的东西。ISPF 选项 3.14 或 3.15 将搜索字符串并显示结果。您也可以从成员列表中发出 SRCHFOR，然后仅在成员列表中过滤找到的成员。此外，ISPF LM 服务可用于通过 PDS 的成员，然后运行编辑宏来进行查找。EXEXIO 可用于将结果写入输出文件。请注意，SuperC 已经使用 3.15 执行此操作