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

文件辅助批处理如何重复一行...


IBM大型机论坛 -> 电脑软件& Other Tools
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
ThecknoDecker

新的用户


已加入:2020年12月15日
帖子:2
地点:加拿大

发布发表:星期二2020年12月15日上午4:48
引用回复

你好
我得到了一些PDS,我需要编辑它们的内容来添加行的编辑副本。

当我找到“多伦多”时,我想复制到“ DowntownArea”

所以在像这样的列表中
某某生活在蒙特利尔
温哥华是一个伟大的小镇
多伦多的空气潮湿
我想去里贾纳


最终会
某某生活在蒙特利尔
温哥华是一个伟大的小镇
多伦多的空气潮湿
市区的空气潮湿

我想去里贾纳

-
我现在所得到的是我修改为DowntownArea的“多伦多”行的摘录:
码:
// STEP2 EXEC PGM = FILEAID                                     
// SYSPRINT DD SYSOUT = *                                       
// SYSLIST DD DSN = RIT01U.POAACF2.PRIV.FIL.BEFORE,DISP = SHR     
// SYSTOTAL DD SYSOUT = *                                       
// DD01     DD DSN = RIS01U.POASECU.ESSAI.INPUT,DISP = SHR       
// DD01O     DD DSN = RIS01U.POASECU.ESSAI.OUTPUT,DISP = OLD       
// SYSIN    DD *                                               
$$ DD01 COPY IF =(5,0,C'TORONTO')                               
/*                                                           
// *                                                           
// STEP3 EXEC PGM = FILEAID                                     
// SYSPRINT DD SYSOUT = *                                       
// SYSLIST DD DSN = RIT01U.POAACF2.PRIV.FIL.BEFORE,DISP = SHR     
// SYSTOTAL DD SYSOUT = *                                       
// DD01     DD DSN = RIS01U.POASECU.ESSAI.OUTPUT,DISP = SHR       
// SYSIN    DD *                                             
$$ DD01 UPDATE F = JCL,EDITALL =(3,0,C"TORONTO",C"DOWNTOWNAREA")
/*                                                         
// * 


因此,我该如何接受输入成员并将其与输出合并到“合并”中

知道如何处理吗?
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


已加入:2015年8月15日
帖子:388
地点:德国班贝格

发布发表于:星期二2020年12月15日下午1:40
引用回复

为什么不只是卸载PDS并运行带OUTFIL的SORT以针对它们创建多行呢?您可以在重新加载之前查看所有更改。
回到顶部
查看用户资料 发送私信
ThecknoDecker

新的用户


已加入:2020年12月15日
帖子:2
地点:加拿大

发布发表:2020年12月16日星期三凌晨3:17
引用回复

好,谢谢所有我找到的东西!

码:
// STEP2 EXEC PGM = FILEAID                                           
// SYSPRINT DD SYSOUT = *                                             
// SYSLIST  DD SYSOUT=*                                             
// SYSTOTAL DD SYSOUT = *                                             
// DD01     DD DSN = RIS01U.POASECU.ESSAI.INPUT,DISP = SHR             
// FILE01   DD DSN = RIS01U.POASECU.ESSAI.OUTPUT,DISP = OLD             
// SYSIN    DD *                                                       
$$ DD01 USER WRITE = FILE01,                                             
            IF=(5,0,C'TORONTO'),                               
            WRITE=FILE01                                               
/*                                                                     
// * 


在那部分中,它会读取一次文件并将其写入File01,
然后,它再次读取并仅打印“多伦多”行...

令人困惑的是,这些行的结尾不在文件的末尾,而是在我们找到多伦多的行的下面。
例如,第12行在第13行...在18中复制17 ...

现在要完成我的工作,我用select = 2进行更新,因此仅修改了2行中的1行。

码:
// STEP3 EXEC PGM = FILEAID                                               
// SYSPRINT DD SYSOUT = *                                                 
// SYSLIST  DD SYSOUT=*                                                 
// SYSTOTAL DD SYSOUT = *                                                 
// DD01     DD DSN = RIS01U.POASECU.ESSAI.OUTPUT,DISP = SHR               
// SYSIN    DD *                                                       
$$ DD01 UPDATE F = JCL,                                                   
               EDITALL=(3,0,C"TORONTO",C"DOWNTOWNAREA"),   
               SELECT=2                                               
/*                                                                     
// *

感谢您阅读大量的帖子和我找到的手册。

ThecknoDecker [/ code]
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 电脑软件& Other Tools

 


类似主题
话题 论坛 回覆
没有新帖 将匹配的记录写入输出文件 DFSORT / ICETOOL 1
没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
没有新帖 比较两个文件以查找位置/日期... 同步排序 2
没有新帖 DB2I面板中的命令行放置 TSO / ISPF 2
没有新帖 将文件从PD转换为显示... 同步排序 4
搜索我们的论坛:

回到顶部