vsam+数据集.docVIP

VSAM 数据集 USERID.LBTS01.VK01 *VSAM 数据集 一般有DATA 和INDEX. *CLUSTER 文件 将来用VSAM使用这个名字 USERID.LBTS01.VK01.DATA 系统可以自动帮你创建,你也可以在程序中指定 USERID.LBTS01.VK01.INDEX 定义一个VSAM 数据集. 000001 //LBDFVSAM JOB ACCT# , 000002 // DEFVSAM, 000003 // CLASS A, 000004 // MSGLEVEL 1,1 , 000005 // MSGCLASS X, 000006 // NOTIFY SYSUID 000007 //* 000008 //DEFVSAM EXEC PGM IDCAMS 000009 //SYSPRINT DD SYSOUT * 定义第一个VSAM数据集,推荐使用这种 000010 //SYSIN DD * 000011 DEFINE CLUSTER NAME USERID.VKTS4A - 000012 VOL TSTWK1 - 000013 RECSZ 80 80 REC 1000 1000 - 000014 KEYS 4 0 000015 // 2.往VSAM里面添加一个纪录,初始化VSAM * VSAM 创建后必须初始化. 000001 //LBSTVSAM JOB ACCT# , 000002 // DEFVSAM, 000003 // CLASS A, 000004 // MSGLEVEL 1,1 , 000005 // MSGCLASS X, 000006 // NOTIFY SYSUID 000007 //* 000008 //SORTVSAM EXEC PGM SORT 000009 //SYSOUT DD SYSOUT * 000010 //SORTIN DD * 000011 00 LI BIN 000012 //SORTOUT DD DSN USERID.LBTS01.VK01,DISP OLD 000013 //SYSIN DD * 000014 SORT FIELDS COPY 000015 OUTREC FIELDS 1,80 80和定义VSAM 时候的RECSZ 80 80 一样 000016 //* 打印出一个VSAM信息,VSAM不能在ISPF中编辑.用下面作业来运行 000001 //LBPTVSM JOB ACCT# , 000002 // PRTVSAM, 000003 // CLASS A, 000004 // MSGLEVEL 1,1 , 000005 // MSGCLASS X, 000006 // NOTIFY SYSUID 000007 //* 000008 //PRTVSAM EXEC PGM IDCAMS 000009 //SYSPRINT DD SYSOUT * 000010 //FILE1 DD DSN USERID.LBTS01.VK01,DISP SHR 000011 //SYSIN DD * 000012 PRINT INFILE FILE1 CHAR 000013 /* 删除一个VSAM数据集 A. 在ISPF界面找到VSAM, 在数据集之前输入命令DEL,删除. B.作业 000001 //LBDLVSM JOB ACCT# , 000002 // DELVSAM, 000003 // CLASS S, 000004 // MSGLEVEL 1,1 , 000005 // MSGCLASS S, 000006 // NOTIFY SYSUID 000007 //* 000008 //DELVSAM EXEC PGM IDCAMS 000009 //DD1 DD VOL SER TSTCC2,UNIT 3390,DISP OLD 000010 //SYSPRINT DD SYSOUT * 000011 //SYSIN DD * 000012 DELETE - 000013 DVLPDA.VKDSMF.VK - 000014 FILE DD1 - 000015 PURGE - 000016 ERASE 80 是记录录长度 1000第一次分配 1000 每次扩展量 KB