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

纳加容·卡拉帕蒂

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

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

任何人都可以拿出样本工作来做到这一点！

超级

9.0 IEBPTPCH（打孔）程序来自 DFSMS / MVS V1R5实用程序.

1.35 PRINTDS命令来自 z / OS V1R7.0 TSO / E命令参考.

纳加容·卡拉帕蒂

您能否给我发送一个使用IEBPTPCH的示例程序。

超级

有一个在上一个主题中.

dbzTHEdinosauer

为什么不使用3.3面板？

纳加容·卡拉帕蒂

3.3用于复制'pds到pds ' 要么 'ps到ps' 但不适用于“单个ps的所有pds成员”。

超级

??？

ISPF 3.3是“ 3移动/复制移动或复制成员或数据集”，可以是PDS到PDS，PDS到SEQ，SEQ到PDS。

亚鲁

娜迦

纳加容·卡拉帕蒂

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

谢谢！！！！！！

恩里科·索里切蒂

超级

我以为您的原始要求是能够批量执行此操作而不必编写程序。没有？

纳加容·卡拉帕蒂

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

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

纳加容·卡拉帕蒂

是，
我们最初的要求是能够批量执行此操作而不必编写程序。

恩里科·索里切蒂

c · 发表：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

你好

我想做完全相反！！！

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

这样做的程序是什么？

谢谢，

道格拉斯·怀尔德（Douglas Wilder）

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

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

如果要将平面文件拆分为多个PDS成员，那么我们需要知道如何检测一个成员何时结束而下一个成员何时开始。了解该文件是如何创建的很容易。

外籍人士

这取决于平面文件的创建方式。不知道它是如何创建的，我们可以告诉您如何还原它

拉乌尔班克

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

// 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)

罗伯特·桑普

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

正如先前的文章所指出的那样，sagar有很多可能的方式来执行您要的操作，但是所使用的工具部分取决于平面文件的特性。除非您提供更多，否则我们只能说是可以做到，但具体工具取决于文件。

拉乌尔班克

这是原始问题：

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

我的目的只是为了帮助提出原始问题的人，以防他仍未找到解决方案。

拉乌尔班克

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

道歉....

dbzTHEdinosauer

编辑pds成员，在要放置新数据的行后输入“ A”，然后在命令行中输入COPY。按下ENTER键。
填写面板。

Sagar_mainframe

实际上，我尝试使用IDCAMS如下：

罗伯特·桑普

请使用DISP = OLD以获得保证的结果，如果您确定没有其他人可以同时更新PDS，请使用DISP = SHR。 DISP适用于数据集，而不适用于成员-因为许多人已经发现尝试通过将DISP =（OLD，DELETE）编码来摆脱成员的困难方法（数据集消失了）。