Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1064917
  • 博文数量: 106
  • 博客积分: 9093
  • 博客等级: 中将
  • 技术积分: 2770
  • 用 户 组: 普通用户
  • 注册时间: 2006-06-01 17:22
文章分类

全部博文(106)

文章存档

2014年(1)

2012年(29)

2011年(32)

2010年(20)

2008年(24)

分类:

2008-04-25 17:07:24

//TSOIDVM  JOB (ACCT),TSOID,CLASS=A,MSGCLASS=X,                        
//         NOTIFY=&SYSUID                                              
//*********************************************************************/
//*               VASM DEFINE                                          
//*********************************************************************/
//DEFINE  EXEC PGM=IDCAMS                                              
//SYSPRINT DD SYSOUT=*                                                 
//SYSIN DD *                                                           
   DEFINE CLUSTER                    -                                 
      ( NAME (TSOID.TEST.VSAM) -                                       
       CYLINDERS (1,1)     -                                           
       RECORDSIZE (80 80)         -                                    
       KEYS (18 0) -                                                   
       FREESPACE(10,20)) -                                             
   DATA(NAME(TSOID.TEST.VSAM.DATA)) -                                  
   INDEX(NAME(TSOID.TEST.VSAM.INDEX))                                  
/*                                                                     

注:其中的TSO ID需要进行替换才能使用。

         RECORDSIZE (80 80)语句定义了VSAM文件的长度

         KEYS (18 0)定义了VSAM文件关键字,即索引的长度。

阅读(5580) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~