|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
Vkrajuch
新的用户
已加入：2005年6月22日
帖子：5
地点：海得拉巴
|
|
|
|
嗨，朋友们，
我的PDS中有50多名成员，
我想更改一个PDS中这50个成员中的一个词。
是否有任何命令可以更改PDS中所有这些成员中的单词。
谢谢& 问候，
维杰 |
|
| 回到顶部 |
|
 |
khamarutheen
活跃成员
已加入：2005年8月23日
帖子：678
地点：新泽西
|
|
|
|
嗨，
使用3.14或3.15，有一个选项，例如SUPERC，我认为v可以做到...我不清楚...我知道v可以在所有50个成员中搜索特定的单词..但我不确定该替换..让我尝试，如果可能的话让我知道。 |
|
| 回到顶部 |
|
|
稻田
新的用户
已加入：2005年9月12日
帖子：46
地点：法国巴黎
|
|
|
|
嗨维杰
我认为使用FILEAID是解决您问题的更好方法。如果在您的商店中未实现FILEAID，则可以使rexx调用ispf宏。
我希望能有所帮助。
问候。
稻田 |
|
| 回到顶部 |
|
|
纳拉普迪
新的用户
已加入：2005年7月27日
帖子：18
|
|
|
|
打开pds。然后发出命令g c all'abc''def'
这将命令将pds中所有abc字的出现更改为def
请尝试这个，让我知道它是否有效 |
|
| 回到顶部 |
|
|
拉维高尔
新的用户
加入：2005年7月12日
帖子：38
|
|
|
|
| 没有这个命令不起作用，顺便说一句是Tso是什么命令？ |
|
| 回到顶部 |
|
|
阿卡什人
新的用户
已加入：2005年11月24日
帖子：49
地点：钦奈
|
|
|
|
嗨，Nalla reddy，
您更改字符串的方法不起作用.....
问候，
阿卡什 |
|
| 回到顶部 |
|
|
我知道
活跃用户
已加入：2005年8月22日
帖子：412
所在地：美国科拉拉多
|
|
|
|
嗨，vkrajuch，
据我了解，您可以在该用途中使用FILEAID 搜索和更新选项。该过程是识别要搜索的单词并指定要替换的单词。
正如帕迪指出的那样，另一种方法是利用REXX代码。
希望这可以帮助。 |
|
| 回到顶部 |
|
|
Vkrajuch
新的用户
已加入：2005年6月22日
帖子：5
地点：海得拉巴
|
|
|
|
嗨，朋友们，
感谢您的即时回应...
但是，在我们的商店中，我没有提供文件辅助，也没有提供Rexx。
谢谢
问候，
维杰 |
|
| 回到顶部 |
|
|
我知道
活跃用户
已加入：2005年8月22日
帖子：412
所在地：美国科拉拉多
|
|
|
|
嗨，vkrajuch，
在这种情况下，您需要手动更改PDS中50个成员的特定单词。
其他解决方案是有人必须为您发送REXX代码。我没有您问题的代码。 |
|
| 回到顶部 |
|
|
稻田
新的用户
已加入：2005年9月12日
帖子：46
地点：法国巴黎
|
|
|
|
嗨，维杰，
清除我的疑问，您可以使用用户权限执行rexx代码吗？
问候
稻田  |
|
| 回到顶部 |
|
|
saithvis2
新的用户
已加入：2005年12月23日
帖子：61
地点：美国普罗维登斯
|
|
|
|
大家好，
我曾经尝试过File-aid选项，但是如何通过调用ISPF macro使用rexx代码来做同样的事情。
任何人都可以帮我解决这个问题，因为我面临着在pds的所有成员中将变量abc10更改为xyz10的相同问题。
问候
维沙尔 |
|
| 回到顶部 |
|
|
ofer71
全球主持人
已加入：2005年12月27日
帖子：2359
地点：以色列
|
|
|
|
这是我的解决方案：
| 码： |
/ * ------------------------------- 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
地点：印度
|
|
|
|
试试这个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。如果这可以解决您的问题或有其他问题，请告诉我们。 |
|
| 回到顶部 |
|
|
|
|
