发布时间 : 星期一 文章IBM大型机操作系统 学习笔记更新完毕开始阅读129ce48a84868762caaed5ed
000300 //SYSPRINT DD SYSOUT=* 000400 //SYSUT1 DD *
000500JONES FRED 53AF 87 5701 NINE MILE ROAD 000600ANDERSON DON 78AF 34 320 WESTHEIMER #219
000710 //SYSUT2 DD DSN=ST018.TEST1.TEST1,DISP=(NEW,CATLG,DELETE), 000800 //SPACE=(TRK,(1,1)),VOL=SER=USER02, 000900 //RECFM=FB,LRECL=80,UNIT=SYSDA 001000 //SYSIN DD DUMMY 例2：复制PS顺序数据集 000100 //ST018 JOB NOTIFY=ST018,MSGLEVEL=(1,1) 000200 //STEP1 EXEC PGM=IEBGENER 000300 //SYSPRINT DD SYSOUT=*
000400 //SYSUT1 DD DSN=ST018.SDS.DATA,DISP=SHR 000500 //SYSUT2 DD DSN=ST018.TEST1.TEST1,DISP=OLD 000600 //SYSIN DD DUMMY
例3：将一个PS顺序数据集st018.sds.data分割成3部分，以成员形式存储在PO分区数据集st018.test.po中
000100 //ST018A JOB NOTIFY=ST018,MSGLEVEL=(1,1) 000200 //STEP1 EXEC PGM=IEBGENER 000300 //SYSPRINT DD SYSOUT=*
000400 //SYSUT1 DD DSN=ST018.SDS.DATA,DISP=SHR
000500 //SYSUT2 DD DSN=ST018.TEST.PO,DISP=(NEW,CATLG,DELETE), 000600 // SPACE=(TRK,(1,1,1)),VOL=SER=USER02, 000700 // RECFM=FB,LRECL=80,UNIT=SYSDA 000800 //SYSIN DD *
000900GENERATE MAXNAME=3,MAXGPS=2 001000MEMBER NAME=MEM1
001100RECORD IDENT=(8,'FIRSTMEM',2) 001200MEMBER NAME=MEM2
001300RECORD IDENT=(8,'SECNDMEM',2) 001400MEMBER NAME=MEM3
例4：从源PS顺序数据集ST018.SDS.DATA中选中一些列存储在目标PS顺序数据集ST018.TEST1.TEST1中....
000100 //ST018A JOB NOTIFY=ST018,MSGLEVEL=(1,1) 000200 //SETP1 EXEC PGM=IEBGENER 000300 //SYSPRINT DD SYSOUT=*
000400 //SYSUT1 DD DSN=ST018.SDS.DATA,DISP=SHR 000500 //SYSUT2 DD DSN=ST018.TEST1.TEST1,DISP=OLD 000600 //SYSIN DD *
000700GENERATE MAXFLDS=3
000800RECORD FIELD=(10,1,,1),FIELD=(10,11,,20),FIELD=(10,21,,30) 例5:打印/显示顺序数据集ST018.SDS.DATA 000100 //ST018 JOB NOTIFY=ST018,MSGLEVEL=(1,1) 000200 //STP1 EXEC PGM=IEBGENER 000300 //SYSPRINT DD SYSOUT=*
000400 //SYSUT1 DD DSN=ST018.SDS.DATA,DISP=SHR 000500 //SYSUT2 DD SYSOUT=* 000600 //SYSIN DD DUMMY 以上例子说明:
–SYSIN DD * 语句标识输入数据流记录控制语句；
–GENERATE语句表示调用编辑功能，操作数MAXFLDS=3 表示后面的RECORD语句最多描述三个区域；
–RECORD语句通过FIELD参数描述输入输出区域，其格式为：
–FIELD=(LENGTH OF FIELD,POSITION IN INPUT,CONVERSION,POSITION IN OUTPUT)
^^^^^待续~~~~~~~~~~~~~~~~ 续>>（7.18） [IEBCOPY] EBCOPY主要功能：
–拷贝完整的数据集或部分数据集；
–建立分区数据集或扩展分区数据集的备份，备份是存放在磁带或磁盘上的顺序数据集；
–变更分区数据集或扩展分区数据集的成员、为选择的成员更换新名； –对加载模块进行拷贝和重新组块。 模板: JOB
EXEC PGM=IEBCOPY
SYSPRINT DD SYSOUT=* SYSUT1 DD 输入数据集 SYSUT2 DD 输出数据集
SYSUT3 DD 溢出数据集#可以省略 SYSUT4 DD 溢出数据集#可以省略
SYSIN DD * 控制语句#如不需要控制语句,可写成SYSIN DD DUMMY COPY SELECT EXECLUDE
COPY：启动一个或多个拷贝、写或加载操作 1.格式：label COPY OUTDD=ddname,INDD=({ddname| (ddname,R)},?),LIST={YES|NO} 2.操作数说明：
?“OUTDD=”：指定输出的分区数据集名，这里的数据集必须是本作业步中的一个DD语句名；
?“INDD=({ddname| (ddname,R)},?)”：指定输入分区数据集，对于卸载操作只能指定一个ddname，这里的R表示从输入的数据集中选择所有的成员进行相应的操作，此时不需设置SELECT语句。
?“LIST={YES|NO}”：指出是否将拷贝的成员名列在SYSPRINT数据集中，取值为YES时将成员名列表。 注意:
–如果为拷贝操作，输入数据集和输出数据集必须是分区数据集、扩展分区数据集或卸载模块结果的顺序数据集；
–如果是加载操作，输入数据集必须是分区数据集或顺序数据集，而输出数据集则必须是分区数据集；
–如果是卸载操作，输入数据集必须是分区数据集、扩展分区数据集或顺序分区数据集，输出数据集可以驻留在直接存取卷上，也可以驻留在磁带卷上。当驻留
在磁带卷上时，它的组织结构必须是顺序数据集，且要指定省略目录或缩影值得SPACE参数。
SELECT：确定输入数据集中要拷贝的成员名
1.格式：label SELECT MEMBER=({name1| (name1,newname1,R) | (name1,,R)}，{name2| (name2,newname2,R) | (name2,,R)},?..)
2.操作数说明：?“MEMBER=?”：name确定拷贝的成员名；newname确定拷贝输出的成员名，如果这个名字在输出分区数据集中已存在，则这个成员不被拷贝，除非同时设置R参数，newname和ALTERMOD不能同时使用。 EXCLUDE：确定输入数据集中不被拷贝和不加载的成员
1.格式：label EXCLUDE MEMBER=(name1, name2, name3?..) 2.操作数说明：?“MEMBER=?”：name确定不被拷贝的成员名 例1,拷贝整个分区数据集，不拷贝名字相同的成员
000100 //ST018A JOB NOTIFY=ST018,MSGLEVEL=(1,1) 000200 //STP1 EXEC PGM=IEBCOPY 000300 //SYSPRINT DD SYSOUT=*
000400 //SYSUT1 DD DSN=ST018.PDS.DATA,DISP=SHR
000500 //SYSUT2 DD DSN=ST018.TEST.PO,DISP=(NEW,CATLG,DELETE), 000600 // SPACE=(TRK,(5,1,2)),VOL=SER=USER02,UNIT=SYSDA 注意:SYSIN DD * 语句可以省略
例2,拷贝整个分区数据集，拷贝且覆盖名字相同的成员 000100 //ST018A JOB NOTIFY=ST018,MSGLEVEL=(1,1) 000200 //STP1 EXEC PGM=IEBCOPY 000300 //SYSPRINT DD SYSOUT=*
000400 //DD1 DD DSN=ST018.PDS.DATA,DISP=SHR 000500 //DD2 DD DSN=ST018.TEST.PO,DISP=OLD 000600 //SYSIN DD *
000700COPY OUTDD=DD2,INDD=((DD1,R))#留意参数格式 例3,仅拷备和置换被选择的分区数据集成员
000100 //ST018A JOB NOTIFY=ST018,MSGLEVEL=(1,1) 000200 //STP1 EXEC PGM=IEBCOPY 000300 //SYSPRINT DD SYSOUT=*
000400 //DD1 DD DSN=ST018.PDS.DATA,DISP=SHR 000500 //DD2 DD DSN=ST018.TEST.PO,DISP=OLD