Mainframe is Back » VSAM http://www.ibmmainframe.cn Everything about Mainframe: 中文大型机资讯网 Mon, 06 Sep 2010 15:38:38 +0000 en hourly 1 http://wordpress.org/?v=3.0.1 如何使用JCL输出VSAM文件的内容(how to output VSAM data with JCL) http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e8%be%93%e5%87%bavsam%e6%96%87%e4%bb%b6%e7%9a%84%e5%86%85%e5%ae%b9how-to-output-vsam-data-with-jcl/ http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e8%be%93%e5%87%bavsam%e6%96%87%e4%bb%b6%e7%9a%84%e5%86%85%e5%ae%b9how-to-output-vsam-data-with-jcl/#comments Fri, 21 Dec 2007 11:09:32 +0000 Raymond http://www.ibmmainframe.cn/2007/12/21/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e8%be%93%e5%87%bavsam%e6%96%87%e4%bb%b6%e7%9a%84%e5%86%85%e5%ae%b9how-to-output-vsam-data-with-jcl/ //TSOIDVM  JOB (ACCT),TSOID,CLASS=A,MSGCLASS=X,                        
//         NOTIFY=&SYSUID                                              
//*********************************************************************/
//*               VASM PRINT                                           
//*********************************************************************/
//PRINT   EXEC PGM=IDCAMS                                              
//SYSPRINT DD SYSOUT=*                                                 
//INPUT    DD DSN=TSOID.TEST.VSAM,DISP=SHR                             
//SYSIN DD *                                                           
   PRINT INFILE(INPUT) CHAR                                            
/*                                                                     
//           

注：其中TSOID是用户登陆mainframe的TSO ID，需要进行替换。
    输出信息使用的是IDCAMS utility
    被输出信息的VSAM是：TSOID.TEST.VSAM
    输出的语句是： PRINT INFILE(INPUT) CHAR         

]]> http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e8%be%93%e5%87%bavsam%e6%96%87%e4%bb%b6%e7%9a%84%e5%86%85%e5%ae%b9how-to-output-vsam-data-with-jcl/feed/ 0 如何使用JCL写入信息到VASM(how to write information into VSAM with JCL) http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%86%99%e5%85%a5%e4%bf%a1%e6%81%af%e5%88%b0vasmhow-to-write-information-into-vsam-with-jcl/ http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%86%99%e5%85%a5%e4%bf%a1%e6%81%af%e5%88%b0vasmhow-to-write-information-into-vsam-with-jcl/#comments Fri, 21 Dec 2007 11:06:46 +0000 Raymond http://www.ibmmainframe.cn/2007/12/21/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%86%99%e5%85%a5%e4%bf%a1%e6%81%af%e5%88%b0vasmhow-to-write-information-into-vsam-with-jcl/ //TSOIDVM  JOB (ACCT),TSOID,CLASS=A,MSGCLASS=X,                        
//         NOTIFY=&SYSUID                                              
//*********************************************************************/
//*               REPRO DATA                                           
//*********************************************************************/
//REPRO   EXEC PGM=IDCAMS                                              
//SYSPRINT DD SYSOUT=*                                                 
//INPUT    DD DSN=TSOID.TEXT.DATA,DISP=SHR                             
//SYSIN DD *                                                           
   REPRO INFILE(INPUT) ODS(TSOID.TEST.VSAM)                            
/*                                                                     
//                      

注：向VSAM文件写入信息，使用IDCAMS来实现。写入的内容保存在SDS，其DS名称是：TSOID.TEST.DATA.
    具体的写入信息语句是：                                                                                        REPRO INFILE(INPUT) ODS(TSOID.TEST.VSAM)
    信息会被写入VSAM文件TSOID.TEST.VSAM中
    其中的TSOID需替换成登陆mainframe的ID.

]]> http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%86%99%e5%85%a5%e4%bf%a1%e6%81%af%e5%88%b0vasmhow-to-write-information-into-vsam-with-jcl/feed/ 0 如何使用JCL删除VSAM文件(how to delete a VSAM with JCL) http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%88%a0%e9%99%a4vsam%e6%96%87%e4%bb%b6how-to-delete-a-vsam-with-jcl/ http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%88%a0%e9%99%a4vsam%e6%96%87%e4%bb%b6how-to-delete-a-vsam-with-jcl/#comments Fri, 21 Dec 2007 11:02:40 +0000 Raymond http://www.ibmmainframe.cn/2007/12/21/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%88%a0%e9%99%a4vsam%e6%96%87%e4%bb%b6how-to-delete-a-vsam-with-jcl/ //TSOIDVM  JOB (ACCT),TSOID,CLASS=A,MSGCLASS=X,                        
//         NOTIFY=&SYSUID                                              
//*********************************************************************/
//*               VASM DELETE                                          
//*********************************************************************/
//DELETE  EXEC PGM=IDCAMS                                              
//SYSPRINT DD SYSOUT=*                                                 
//SYSIN DD *                                                           
   DELETE TSOID.TEST.VSAM PURGE                                        
/*                                                                     
//                   

注：删除一个VSAM同样使用IDCAMS Utility 在SYSIN中给出删除语句，其中的TSOID.TEST.VSAM是一个VSAM文件。PURGE表示强制删除            

]]> http://www.ibmmainframe.cn/2007/12/%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%88%a0%e9%99%a4vsam%e6%96%87%e4%bb%b6how-to-delete-a-vsam-with-jcl/feed/ 0 How to define a VSAM with JCL 如何使用JCL建立一个VSAM文件 http://www.ibmmainframe.cn/2007/12/how-to-define-a-vsam-with-jcl-%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%bb%ba%e7%ab%8b%e4%b8%80%e4%b8%aavsam%e6%96%87%e4%bb%b6/ http://www.ibmmainframe.cn/2007/12/how-to-define-a-vsam-with-jcl-%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%bb%ba%e7%ab%8b%e4%b8%80%e4%b8%aavsam%e6%96%87%e4%bb%b6/#comments Fri, 21 Dec 2007 10:59:27 +0000 Raymond http://www.ibmmainframe.cn/2007/12/21/how-to-define-a-vsam-with-jcl-%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%bb%ba%e7%ab%8b%e4%b8%80%e4%b8%aavsam%e6%96%87%e4%bb%b6/ //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文件关键字，即索引的长度。

]]> http://www.ibmmainframe.cn/2007/12/how-to-define-a-vsam-with-jcl-%e5%a6%82%e4%bd%95%e4%bd%bf%e7%94%a8jcl%e5%bb%ba%e7%ab%8b%e4%b8%80%e4%b8%aavsam%e6%96%87%e4%bb%b6/feed/ 5