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

如何将PDS的内容复制到PS文件


IBM大型机论坛 -> JCL& VSAM
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
纳加容·卡拉帕蒂

新的用户


已加入:2007年10月9日
帖子:22
地点:印度钦奈

 发布 发表:2007年10月16日,星期二,下午4:40
引用回复

谁能让我知道如何将PDS中所有成员的内容(而不列出工作中PDS中的成员)复制到一个平面文件中。

输出的平面文件应包含要在其中串联的PDS成员中的所有数据。

任何人都可以拿出样本工作来做到这一点!
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

 发布 发表:2007年10月16日,星期二,下午4:47
引用回复

9.0 IEBPTPCH(打孔)程序 来自 DFSMS / MVS V1R5实用程序.

1.35 PRINTDS命令 来自 z / OS V1R7.0 TSO / E命令参考.
回到顶部
查看用户资料 发送私信
纳加容·卡拉帕蒂

新的用户


已加入:2007年10月9日
帖子:22
地点:印度钦奈

 发布 发表:2007年10月16日,星期二,下午4:52
引用回复

您能否给我发送一个使用IEBPTPCH的示例程序。
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

 发布 发表:2007年10月16日,星期二,下午5:48
引用回复

有一个 在上一个主题中.
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2007年10月16日,星期二,下午6:19
引用回复

为什么不使用3.3面板?
回到顶部
查看用户资料 发送私信
纳加容·卡拉帕蒂

新的用户


已加入:2007年10月9日
帖子:22
地点:印度钦奈

 发布 发表:2007年10月16日,星期二,下午6:33
引用回复

3.3用于复制'pds到pds ' 要么 'ps到ps' 但不适用于“单个ps的所有pds成员”。
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

 发布 发表:2007年10月16日,星期二,下午6:37
引用回复

??? icon_confused.gif

ISPF 3.3是“ 3移动/复制移动或​​复制成员或数据集”,可以是PDS到PDS,PDS到SEQ,SEQ到PDS。
回到顶部
查看用户资料 发送私信
亚鲁

高级会员


已加入:2007年7月3日
职位:1287
地点:印度金奈

 发布 发表:2007年10月16日,星期二,下午6:38
引用回复

娜迦

引用:
3.3用于复制“ pds到pds”或“ ps到ps”


你确定吗?

引用:
dbzTHEdinosauer写道:

为什么不使用3.3面板?


是的,可以使用3.3将PDS复制到PS。
回到顶部
查看用户资料 发送私信
纳加容·卡拉帕蒂

新的用户


已加入:2007年10月9日
帖子:22
地点:印度钦奈

 发布 发表:2007年10月16日,星期二,下午6:46
引用回复

谢谢凯文,
3.3选项有效。我能够将PDS成员的所有内容复制到一个平面文件中。


谢谢 !!!!!!
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10716
所在地:意大利

 发布 发表:2007年10月16日,星期二,下午6:50
引用回复

引用:
3.3用于复制“ pds到pds”或“ ps到ps”


错,我刚刚测试过

它的工作原理是,它将所有选定的成员简单地复制到顺序数据集中-无需任何分隔符。

就像将每个成员连接为IEBGENER步骤的dd

如果用于包含源程序的pds可能没有用,
但是如果pds仅包含要连接的数据,它将可以工作
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

 发布 发表:2007年10月16日,星期二,下午6:51
引用回复

我以为您的原始要求是能够批量执行此操作而不必编写程序。没有?
回到顶部
查看用户资料 发送私信
纳加容·卡拉帕蒂

新的用户


已加入:2007年10月9日
帖子:22
地点:印度钦奈

 发布 发表:2007年10月16日,星期二,下午6:53
引用回复

但是在使用此3.3选项之前,我创建了一个空的平面文件,然后给出了3.3选项进行复制。

如果我们在3.3之前没有定义,那么它将尝试创建一个新的PDS并将所有内容复制到那些PDS成员中。
回到顶部
查看用户资料 发送私信
纳加容·卡拉帕蒂

新的用户


已加入:2007年10月9日
帖子:22
地点:印度钦奈

 发布 发表:2007年10月16日,星期二,下午6:54
引用回复

是,
我们最初的要求是能够批量执行此操作而不必编写程序。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10716
所在地:意大利

 发布 发表:2007年10月16日,星期二,下午7:00
引用回复

引用:
如果我们在3.3之前没有定义,那么它将尝试创建一个新的PDS并将所有内容复制到那些PDS成员中。


也许您敲击键盘的速度太快了,
或您未查看面板的文本

当您指定不存在的数据集时,ISPF将询问
如何分配目标数据集,
带有“ 1”的答复将分配与源相同的特征,
带有“ 2”的答复将要求分配参数
回到顶部
查看用户资料 发送私信
c

高级会员


已加入:2006年7月28日
职位:1702
所在地:澳大利亚

 发布 发表:2007年10月19日,星期五12:53 pm
引用回复

如果您有FILEAID,这是一个有效的示例

// UPD EXEC PGM = FILEAID
// SYSPRINT DD SYSOUT = *
// SYSTOTAL DD SYSOUT = *
// SYSLIST DD SYSOUT = *
// DD01 DD DSN = INPUT.PDS,
// DISP = SHR
// DD01O DD DSN = OUTPUT.DSN,
// DISP =(,CATLG,DELETE),
// UNIT = SYSDA,
//空格=(TRK,(500,100),RLSE)
// SYSIN DD *
*
$$ DD01 COPY MEMBERS = ALL,OUT = 0
回到顶部
查看用户资料 发送私信
Sagar_mainframe

新的用户


已加入:2008年6月7日
帖子:34
地点:宾夕法尼亚州哈里斯堡

 发布 发表:2009年7月15日,星期三,凌晨1:20
引用回复

你好

我想做完全相反!!!

我想将平面文件复制到PDS成员。

这样做的程序是什么?

谢谢,
回到顶部
查看用户资料 发送私信
道格拉斯·怀尔德(Douglas Wilder)

活跃用户


已加入:2006年11月28日
帖子:305
所在地:伊利诺伊州迪尔菲尔德

 发布 发表:2009年7月15日,星期三,上​​午1:56
引用回复

您是否有理由回复旧邮件而不是创建新邮件?

是否要将平面文件复制到一个PDS成员。如果是这样,您可以使用3.3,IEBGENER,ICEGENER,IDCAMS或其他程序。

如果要将平面文件拆分为多个PDS成员,那么我们需要知道如何检测一个成员何时结束而下一个成员何时开始。了解该文件是如何创建的很容易。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

 发布 发表:2009年7月15日,星期三,下午1:43
引用回复

这取决于平面文件的创建方式。不知道它是如何创建的,我们可以告诉您如何还原它
回到顶部
查看用户资料 发送私信
拉乌尔班克

新的用户


已加入:2008年9月25日
帖子:66
地点:班加罗尔

 发布 发表:2009年7月15日,星期三,晚上8:10
引用回复

一个具有其他选项,例如选择要复制的成员,要复制的列以及许多其他选项。


// IEBPTPCH EXEC PGM = IEBPTPCH
// SYSUT1 DD DSN = file.file1,DISP = SHR
// SYSUT2 DD DSN = file.file2,DISP =(OLD,CATLG,DELETE)
// SYSPRINT DD SYSOUT = *
// SYSIN DD *
打印类型= PO,MAXFLDS = 1
RECORD FIELD=(80)
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

 发布 发表:2009年7月15日,星期三,晚上8:17
引用回复

拉乌尔班克 ,该职位是用于将平面文件转换为PDS。您的JCL从PDS变为平面文件。确切地说,这有什么帮助,因为您所做的与要求的完全相反?

正如先前的文章所指出的那样,sagar有很多可能的方式来执行您要的操作,但是所使用的工具部分取决于平面文件的特性。除非您提供更多,否则我们只能说是可以做到,但具体工具取决于文件。
回到顶部
查看用户资料 发送私信
拉乌尔班克

新的用户


已加入:2008年9月25日
帖子:66
地点:班加罗尔

 发布 发表:2009年7月15日,星期三,晚上8:20
引用回复

这是原始问题:


谁能让我知道如何将PDS中所有成员的内容(而不列出工作中PDS中的成员)复制到一个平面文件中。


我的目的只是为了帮助提出原始问题的人,以防他仍未找到解决方案。
回到顶部
查看用户资料 发送私信
拉乌尔班克

新的用户


已加入:2008年9月25日
帖子:66
地点:班加罗尔

 发布 发表:2009年7月15日,星期三,晚上8:22
引用回复

抱歉,现在我意识到原来的问题是在很久以前才问的...

道歉....
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

 发布 发表:2009年7月15日,星期三,晚上8:26
引用回复

编辑pds成员,在要放置新数据的行后输入“ A”,然后在命令行中输入COPY。按下ENTER键。
填写面板。
回到顶部
查看用户资料 发送私信
Sagar_mainframe

新的用户


已加入:2008年6月7日
帖子:34
地点:宾夕法尼亚州哈里斯堡

 发布 发表:2009年7月15日,星期三,晚上8:54
引用回复

实际上,我尝试使用IDCAMS如下:

码:
// PS010    EXEC  PGM=IDCAMS                           
// SYSOUT   DD SYSOUT=*                               
// SYSPRINT DD SYSOUT = *                               
// SYSUDUMP DD SYSOUT = *                               
// INFILE   DD DSN = PRGSD1.PCDATF.ADHERIS.TEMP,DISP = SHR
//输出文件 DD DSN = PRGSD1.CTL.LIB(PCAD004Z),           
//            DISP=(NEW,CATLG,DELETE),               
//            DCB=(RECFM = FB,LRECL = 80,BLKSIZE = 8000),   
//            UNIT=CARDA,                             
//            SPACE=(CYL,(500,500),RLSE)             


但是它说'PRGSD1.CTL.LIB'已经存在。

我想将平面文件的内容复制到成员PCAD004Z中,
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

 发布 发表:2009年7月15日,星期三,8:56 pm
引用回复

请使用DISP = OLD以获得保证的结果,如果您确定没有其他人可以同时更新PDS,请使用DISP = SHR。 DISP适用于数据集,而不适用于成员-因为许多人已经发现尝试通过将DISP =(OLD,DELETE)编码来摆脱成员的困难方法(数据集消失了)。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> JCL& VSAM 转到页面 1, 2   下一个

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
没有新帖 比较文件记录计数百分比... DFSORT / ICETOOL 4
没有新帖 比较两个文件以查找位置/日期... 同步排序 2
没有新帖 将文件从PD转换为显示... 同步排序 4
没有新帖 RECFM = U磁带文件的记录数 DFSORT / ICETOOL 17
搜索我们的论坛:


回到顶部