|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
ThecknoDecker
新的用户
已加入：2020年12月15日
帖子：2
地点：加拿大
|
|
|
|
你好
我得到了一些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
地点：德国班贝格
|
|
|
|
| 为什么不只是卸载PDS并运行带OUTFIL的SORT以针对它们创建多行呢？您可以在重新加载之前查看所有更改。 |
|
| 回到顶部 |
|
|
ThecknoDecker
新的用户
已加入：2020年12月15日
帖子：2
地点：加拿大
|
|
|
|
好，谢谢所有我找到的东西！
| 码： |
// 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] |
|
| 回到顶部 |
|
|
|
|
