IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

ISPF-如何在一个PDS中的50个成员中更改一个词


IBM大型机论坛 -> JCL& VSAM
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
Vkrajuch

新的用户


已加入:2005年6月22日
帖子:5
地点:海得拉巴

发布发表:2005年12月14日,星期三,12:09 pm
引用回复

嗨,朋友们,



我的PDS中有50多名成员,

我想更改一个PDS中这50个成员中的一个词。
是否有任何命令可以更改PDS中所有这些成员中的单词。

谢谢& 问候,
维杰
回到顶部
查看用户资料 发送私信
khamarutheen

活跃成员


已加入:2005年8月23日
帖子:678
地点:新泽西

发布发表:2005年12月14日,星期三12:33 pm
引用回复

嗨,
使用3.14或3.15,有一个选项,例如SUPERC,我认为v可以做到...我不清楚...我知道v可以在所有50个成员中搜索特定的单词..但我不确定该替换..让我尝试,如果可能的话让我知道。
回到顶部
查看用户资料 发送私信
稻田

新的用户


已加入:2005年9月12日
帖子:46
地点:法国巴黎

发布发表:2005年12月14日,星期三,12:39 pm
引用回复

嗨维杰

我认为使用FILEAID是解决您问题的更好方法。如果在您的商店中未实现FILEAID,则可以使rexx调用ispf宏。


我希望能有所帮助。

问候。

稻田
回到顶部
查看用户资料 发送私信
纳拉普迪

新的用户


已加入:2005年7月27日
帖子:18

发布发表:2005年12月14日,星期三,下午1:23
引用回复

打开pds。然后发出命令g c all'abc''def'
这将命令将pds中所有abc字的出现更改为def

请尝试这个,让我知道它是否有效
回到顶部
查看用户资料 发送私信
拉维高尔

新的用户


加入:2005年7月12日
帖子:38

发布发表:2005年12月14日,星期三,下午3:55
引用回复

没有这个命令不起作用,顺便说一句是Tso是什么命令?
回到顶部
查看用户资料 发送私信
阿卡什人

新的用户


已加入:2005年11月24日
帖子:49
地点:钦奈

发布发表:2005年12月14日,星期三,下午4:03
引用回复

嗨,Nalla reddy,

您更改字符串的方法不起作用.....


问候,
阿卡什
回到顶部
查看用户资料 发送私信
我知道

活跃用户


已加入:2005年8月22日
帖子:412
所在地:美国科拉拉多

发布发表:2005年12月14日,星期三,下午5:52
引用回复

嗨,vkrajuch,

据我了解,您可以在该用途中使用FILEAID 搜索和更新选项。该过程是识别要搜索的单词并指定要替换的单词。

正如帕迪指出的那样,另一种方法是利用REXX代码。

希望这可以帮助。
回到顶部
查看用户资料 发送私信
Vkrajuch

新的用户


已加入:2005年6月22日
帖子:5
地点:海得拉巴

发布发表:2005年12月14日,星期三,下午6:01
引用回复

嗨,朋友们,


感谢您的即时回应...

但是,在我们的商店中,我没有提供文件辅助,也没有提供Rexx。


谢谢

问候,
维杰
回到顶部
查看用户资料 发送私信
我知道

活跃用户


已加入:2005年8月22日
帖子:412
所在地:美国科拉拉多

发布发表:2005年12月14日,星期三,下午6:16
引用回复

嗨,vkrajuch,

在这种情况下,您需要手动更改PDS中50个成员的特定单词。

其他解决方案是有人必须为您发送REXX代码。我没有您问题的代码。
回到顶部
查看用户资料 发送私信
稻田

新的用户


已加入:2005年9月12日
帖子:46
地点:法国巴黎

发布发表:2005年12月14日,星期三,8:11 pm
引用回复

嗨,维杰,


清除我的疑问,您可以使用用户权限执行rexx代码吗?


问候

稻田 icon_surprised.gif
回到顶部
查看用户资料 发送私信
saithvis2

新的用户


已加入:2005年12月23日
帖子:61
地点:美国普罗维登斯

发布发表:2006年1月3日,星期二,下午5:54
引用回复

大家好,

我曾经尝试过File-aid选项,但是如何通过调用ISPF macro使用rexx代码来做同样的事情。

任何人都可以帮我解决这个问题,因为我面临着在pds的所有成员中将变量abc10更改为xyz10的相同问题。


问候
维沙尔
回到顶部
查看用户资料 发送私信
ofer71

全球主持人


已加入:2005年12月27日
帖子:2359
地点:以色列

发布发表:2006年1月3日,星期二,下午6:49
引用回复

这是我的解决方案:
码:
/ * ------------------------------- REXX ---------------- --------------- 
 * PROGRAM   : C@ALL                                                   
 * FUNCTION  :如何对所有文件运行编辑宏的示例       
 *           : members of PDS.                                         
 * AUTHOR    : OFER                                                     
 * DATE      : 28/03/04                                                 
 * HOW TO USE:                                                         
 *           :                                                         
 * ------------------------------------------------- ----------------- * / 
                                                                       
ARG PDS。                                                               
                                                                       
苹果电脑  = 'TEMPMAC'                               /* Macro name          */
PDS =带(PDS,"B","'")                                               
                                                                       
X =外出("LIBMEM.")                         / * TSO的陷阱输出  */
 ADDRESS TSO "LISTDS '"PDS"' M"                                         
X =外出("OFF")                                                     
                                                                       
DO I = 7 TO LIBMEM。0                                                   
  LIBMEM。I = STRIP(LIBMEM.I)                   /* Member name         */
  ADDRESS ISPEXEC "EDIT DATASET ('"PDS"("LIBMEM.I")') 苹果电脑RO ("MAC")"   
  SAY I RC LIBMEM。I                                                     
结束                                                                     
                                                                       
出口                                                                   
                                                                       

TEMPMAC是:
码:
/ * REXX * /

地址ISREDIT"MACRO PROCESS"
地址ISREDIT"更改所有'string1''string2'"
C_RC = RC
地址ISREDIT"END"

退出C_RC


回到顶部
查看用户资料 发送私信
卡纳克

主持人


已加入:2005年3月12日
帖子:252
地点:印度

发布发表:2006年1月3日,星期二,下午6:54
引用回复

试试这个JCl:
码:

// TJOB作业(T,B0,SCM),'KANAK',CLASS = T,MSGCLASS = 0,       
//            REGION=2048K                                     
// **************************************************** *******     
// *如果IF中满足条件,则按REPL中指定的方式修改RECS
// **************************************************** *******     
// JS010     EXEC  PGM=FILEAID  FORMAT-4:复制到第二个文件 
// SYSOUT    DD SYSOUT=*                                       
// SYSPRINT  DD SYSOUT=*                                       
// DD01     DD DSN = KANAK.SAMPLE.FILE1,DISP = SHR         
// DD01O     DD DSN = KANAK.SAMPLE.FILE1O,               
//             DISP=(MOD,CATLG,CATLG),UNIT=STOR,               
//             SPACE=(TRK,(1,5),RLSE),DCB=(B0.DSCB)           
// SYSIN     DD *                                               
 $$DD01 COPY IF=(5,EQ,C'1'),REPL=(5,C'3'),                     
/*                                                             
// *                                                           


您可能需要根据需要修改JCL。如果这可以解决您的问题或有其他问题,请告诉我们。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM

 


类似主题
话题 论坛 回覆
没有新帖 更改存在的LRECL的命令... JCL& VSAM 7
没有新帖 会员在PDS中搜索 JCL& VSAM 9
该主题已锁定:您无法编辑帖子或回复。 排序基于第二个记录... 同步排序 1
没有新帖 ISPF面板命令DDLIST / LISTBOX TSO / ISPF 11
没有新帖 我正在ISPF SC中获得一条垂直线... TSO / ISPF 3
搜索我们的论坛:

回到顶部