Mainframe is Back

//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文件关键字，即索引的长度。

随机日志

• Mainframe Index
• IBM朱明：我们一直在支持虚拟化
• [TSO Command]Account Command
• The Four Divisions
• IBM加大统一通信市场投入 与微软竞争加剧