IEBPTPCH

IEBPTPCH

IEBPTPCH 可以用来打印输出部分或整个顺序或分区数据集。打印记录的格式可以采用

标准格式也可以由用户指定。  

标准的格式是：

l      一行只打印一个逻辑记录。   

l      每行的输出格式为：每 8 个字符为一组，每组之间由 2 个空格隔开。   

l      不能打印的字符显示为空格。

l      如果输入是分块的，那么每个逻辑记录以“ * ”号间隔，而每个块之间以“ ** ”分隔。

l      每页打印 16 行。

 

在输出设备的容量范围内，用户可以自定义输出记录的格式。 IEBPTPCH 提供了可选的

编辑功能来处理输入或输出记录。

  IEBPTPCH 可以用来打印：

1 ． 整个顺序数据集或分区数据集（或扩展分区数据集）；

2 ． 一个分区数据集（或扩展分区数据集）的部分成员；

3 ． 一个顺序数据集或分区数据集（或扩展分区数据集）的部分记录；

4 ． 一个分区数据集（或扩展分区数据集）的目录；

5 ． 打印一个顺序数据集或或分区数据集（或扩展分区数据集）的修改版（ Edited  version ）。

下面是 IEBPTPCH 的作业控制语句列表：

语 句	说         明
JOB	作业初始
EXEC	定义程序名 PGM=IEBPTPCH
SYSUT1     DD	定义输入的数据集
SYSUT2     DD	定义输出的数据集，如果定义为 SYSOUT=A ，则为打印输出

 

控制语句说明：

PRINT ：表示输入数据集将被打印。如果要进行打印操作，它必须是第一条操作语句。

MEMBER ：说明一个分区数据集中需要打印的成员。

RECORD ：说明用户设定的打印格式。

TITLE ：指定一个标题。该标题将被打印在所有数据之前。每个打印作业可以包含两个

TITLE 语句，第一个 TITLE 语句指定标题，而第二个 TITLE 语句指定子标题。

 

     实例：

     一个一般的调用 IEBPTPCH 的作业格式如下：

      //EXAMPLE      JOB …

     // EXEC PGM=IEBPTPCH

     //SYSPRINT DD SYSOUT=A

     //SYSUT1 DD …

     //SYSUT2 DD …

     //SYSIN DD *

        在此处放置 IEBPTPCH 的实用程序控制语句

     /*

 

1 ：要打印一个顺序数据集或分区数据集，那么 //SYSUT1 DD 语句应该定义为：

l          磁带上的数据集：

//SYSUT1 DD DSN=tape.dataset.name,UNIT=TAPE,

//  VOL=SER=tape#,LABEL=#,DISP=OLD  

l          顺序的 DASD 上的数据集：

//SYSUT1 DD DSN=seq.dataset.name,DISP=SHR   

l          分区数据集：

//SYSUT1 DD DSN=pds.name,DISP=SHR

 

2 ．要打印分区数据集中的部分成员，那么 //SYSUT1 DD 语句应该定义为：

//SYSUT1 DD DSN=pds.name,DISP=SHR

并且，   实用程序控制语句应为：

PRINT MAXNAME=n

        MEMBER NAME=member1

       MEMBER NAME=member2

        .

         .

        .

       MEMBER NAME=membern

其中， n  是所要打印的成员总数，而 member1,member2,...,membern  是所要打印的成员名字。

 

3 ．要打印顺序数据集或分区数据集的部分记录，那么 //SYSUT1 DD 语句应该定义为：

         //SYSUT1 DD DSN=data.set.name,DISP=SHR

并且， 实用程序控制语句应为：

         PRINT MAXFLDS=f,MAXGPS=g,MAXLITS=l,STOPAFT=nnnnn 

         RECORD IDENT=(length,'name',inloc),FIELD=(length,inloc,,outloc) 

其中：  

         f ：表示 RECORD 语句中， FIELD 参数的个数

         g ：表示 RECORD 语句中， IDENT 参数的个数

         l ：表示 RECORD 语句中， IDENT 标示符中包含的字符数（最多 32,767 个）

         nnnnn ：表示要打印的逻辑记录的个数

         length ：输入记录中包含 identifying name 的区域长度（以字节为单位），该长度不能超过 8 个字节

         ‘ name ’：该标识符用来精确标示记录组的最后一个记录

         inloc ：表示输入记录中包含 identifying name 的区域的开始位置

         outloc ：表示输出记录中该区域的开始位置

 

4 ．要打印一个分区数据集的目录，那么 //SYSUT1 DD 语句应该定义为：

         //SYSUT1 DD DSN=pds.name,DISP=SHR

并且， 实用程序控制语句应为：

 

          PRINT    TYPORG=PS

          TITLE     ITEM=('PRINT PARTITIONED DIRECTORY OF A PDS',outloc)

其中：

         TYPORG=PS ：表示分区数据集的目录是一个顺序的结构

         outloc ：在输出结构 ITEM 参数的内容的起始位置

5 ．要打印分区数据集或顺序数据集的修改版本，那么 //SYSUT1 DD 语句应该定义为：

          //SYSUT1 DD DSN=data.set.name,DISP=SHR

并且， 实用程序控制语句应为：

         PRINT     MAXFLDS=f,CDSEQ=seqno1,CDINCR=incr

         RECORD      FIELD=(72)

其中：

         f ：表示 RECORD 语句中， FIELD 参数的个数

         seqno1 ：第一行的序号

         incr ：增加序号的数量

                        FIELD=(72) ：表示输入记录的 1-72 列将被打印， 73-80 行将被新增的序号替代。

6 ．使用标准格式打印一个分区数据集的成员，但其中的数字将转换为 16 进制的格式打印，那么 //SYSUT1 DD 语句应该定义为：

         //SYSUT1 DD DSN=data.set.name,DISP=SHR

并且， 实用程序控制语句应为：

         PRINT     TYPORG=PO,TOTCONV=XE,MAXNAME=n

          MEMBER NAME=member1

          MEMBER NAME=member2

                   。

                   。

                   。

MEMBER NAME=membern

其中， XE 表示将数字由十进制转换为十六进制输出。

 

     需要注意的是， IEBPTPCH 的控制语句还有许多参数在本节中并没有办法一一介绍，读

者需要参考有关手册进行使用。