VSAM操作笔记_COBOL操作VSAM

最新推荐文章于 2022-10-13 15:54:36 发布
最新推荐文章于 2022-10-13 15:54:36 发布
阅读量6.3k 收藏 26
点赞数 3
文章标签： VSAM操作笔记 COBOL操作VSAM
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/wuqinfei_cs/article/details/12196609
版权

 

下载: VSAM操作笔记.doc

 

1. 概要

1.1  VSAM文件  ① 创建 ② 初始化 ③ 删除 ④打印
1.2  使用命令直接对VSAM 进行操作
1.3  COBOL中对VSAM文件的记录的 CRUD 
 

2. VSAM文件  ① 创建 ② 初始化 ③ 删除

重点: VSAM文件创建完后, 必须初始化, 即给VSAM文件装载记录
注意: 作业名以 userid 开头, 否则 需在 SDSF Menu 查看 Status Of jobs时, 需以 “S 作业名” 查看
即, 当用户查看作业作业, 进入Status Of jobs 后, 看到的是以 userid 开头的作业,
如, 你的userid=S10, 而你的jobname为 S11VSAMJ, 进入Status Of jobs 后是看不到的S11VSAMJ的.
查看的方式是: S  S11VSAMJ
2.1 创建VSAM
2.1.1 JCL 
//S10DEFVS    JOB  (TESTING),'S10',CLASS=A,            
//          MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID 
//DEFVSAM  EXEC PGM=IDCAMS                           
//SYSPRINT DD SYSOUT=*                               
//SYSIN    DD *                                      
    DEFINE CLUSTER ( +                               
             NAME(S10.VS) +                          
             RECSZ(80 80) +                          
             RECORDS(1000 2) +                       
             KEYS(2 0) +                             
             VOL(DMTD04))                            
/*


 
2.1.2 说明
NAME(S10.VS)VSAM name, 必须以 userid (用户id)开头,如 userid=S10, 则文件名为 S10.VS
RECSZ(80 80)record 的长度为 80, 固定长度
KEYS(2 0)KEY 的长度为2 , 从记录的第一个字符开始
VOL(DMTD04)在DMTD04 卷 上创建VSAM文件
 
 
2.1.3 执行结果
  
 
2.2 初始化 VSAM
2.2.1 JCL 
//S10INIT   JOB  (TESTING),'S10',CLASS=A,             
//          MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID 
//SORTVSAM EXEC PGM=SORT                             
//SYSOUT   DD   SYSOUT=*                             
//SORTIN   DD *                                      
00 WU QIN FEI                                        
/*                                                   
//SORTOUT  DD DSN=S10.VS,DISP=OLD                    
//SYSIN    DD *                                      
  SORT FIELDS=COPY                                   
  OUTREC FIELDS=(1,80)                               
/*




2.2.2 说明
通过 流内数据集的方式 给 VSAM文件装载数据
可通过命令查看/修改 VSAM中的数据, 见第三章.
2.2.3 补充: 将其它文件数据装载进VSAM进行初始化 
//S10INIT2  JOB  (TESTING),'S10',CLASS=A,             
//          MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID 
//****************************************************          
//*   INIT VSAM file with other file (S10.BPG.FILE1)
//****************************************************
//STEP01    EXEC PGM=IDCAMS              
//SYSPRINT  DD SYSOUT=*                  
            REPRO +                      
              INDATASET(S10.BPG.FILE1) + 
              OUTDATASET(S10.VS)   
/*

                  


2.3 删除VSAM 
//S10DEL    JOB  (TESTING),'S10',CLASS=A,             
//          MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID  
//DEFVSAM  EXEC PGM=IDCAMS                            
//DD1      DD   VOL=SER=DMTD04,UNIT=3390,DISP=OLD     
//SYSPRINT DD SYSOUT=*                                
//SYSIN    DD *                                       
  DELETE -                                            
    S10.VS      -                                     
    FILE(DD1)   -                                     
    PURGE       -                                     
    ERASE                                             
                                                      
/*

             


2.4 打印VSAM 
//S10PRINT JOB  (TESTING),'S10',CLASS=A,               
//          MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID   
//PRITVS   EXEC PGM=IDCAMS                             
//FILE1    DD DSN=S10.VS,DISP=SHR                      
//SYSPRINT DD SYSOUT=*                                 
//SYSIN    DD *                                        
   PRINT  INFILE(FILE1) CHAR                           
/*

                                                                  




3. 使用命令直接对VSAM 进行操作

 
3.1 ditto ve/vb --浏览/修改 VSAM
    ditto ve  userid.VS    ---修改
    ditto vb  userid.VS    ---浏览
  
3.2 del --删除VSAM
del userid.VS          ---删除
 

4. COBOL中对VSAM文件记录的 CRUD

4.1 read, 读指定key值的记录
4.1.1 COBOL 
       IDENTIFICATION DIVISION.                  
       PROGRAM-ID. VSREAD.                       
      *                                          
       ENVIRONMENT DIVISION.                     
       INPUT-OUTPUT SECTION.                     
       FILE-CONTROL.                             
           SELECT IN-FILE ASSIGN INDD            
               RECORD KEY IS IN-ID               
               ORGANIZATION IS INDEXED           
               ACCESS MODE IS RANDOM             
               FILE STATUS IS IN-FILE-STATUS.    
      *                                          
       DATA DIVISION.                            
       FILE SECTION.                              
       FD  IN-FILE.                               
       01  IN-RECORD.                             
           03 IN-ID       PIC X(02).              
           03 IN-NAME     PIC X(18).              
           03 FILLER      PIC X(60).              
       WORKING-STORAGE SECTION.                   
       77  IN-FILE-STATUS PIC XX.                 
      *                                           
       PROCEDURE DIVISION.                        
           OPEN INPUT IN-FILE.                    
           DISPLAY "OPEN STATUS: " IN-FILE-STATUS.
       100-READ.                                  
           MOVE '00' TO IN-ID.                    
      *    READ IN-FILE INTO IN-RECORD   ***WARN  
           READ IN-FILE                           
             KEY IS IN-ID                                    
             INVALID KEY                                     
               DISPLAY "INVALID KEY"                         
               GO TO 100-END                                 
             NOT INVALID KEY                                 
               DISPLAY "READ ID ", IN-ID                     
               IF IN-ID = '00'                               
               THEN                                          
                 DISPLAY 'ID ', IN-ID, ' NAME IS ', IN-NAME  
                 GO TO 100-END                               
               END-IF                                        
            END-READ.                                        
       100-END.                                              
           CLOSE IN-FILE.                                    
           DISPLAY "CLOSE STATUS: " IN-FILE-STATUS.          
           STOP RUN.

                                   
 
 
4.1.2 JCL  -- 使用VSAM 
//S10RJ     JOB  (TESTING),'S10',CLASS=A,            
//          MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID 
//STEP001   EXEC PGM=VSREAD                                                 
//STEPLIB   DD DSN=S10.LOADLIB,DISP=SHR              
//INDD      DD DSN=S10.VS,DISP=SHR                   
//SYSPRINT  DD SYSOUT=*                              
//SYSOUT    DD SYSOUT=*

                       
 
 
4.2 write, 写入一条记录 
       IDENTIFICATION DIVISION.                   
       PROGRAM-ID. VSWRITE.                        
      *     
       ENVIRONMENT DIVISION.                      
       INPUT-OUTPUT SECTION.                      
       FILE-CONTROL.                              
           SELECT IN-FILE ASSIGN INDD             
           RECORD KEY IS IN-ID                    
           ORGANIZATION IS INDEXED                
           ACCESS MODE IS RANDOM                  
           FILE STATUS IS IN-FILE-STATUS.         
      *
       DATA DIVISION.                             
       FILE SECTION.                              
       FD  IN-FILE.                               
       01  IN-RECORD.  
           03 IN-ID       PIC X(02).                    
           03 IN-NAME     PIC X(18).                 
           03 FILLER      PIC X(60).                 
       WORKING-STORAGE SECTION.                      
       77  IN-FILE-STATUS PIC XX.                    
      *    
       PROCEDURE DIVISION.                           
           OPEN I-O IN-FILE.                         
           DISPLAY "OPEN STATUS: " IN-FILE-STATUS.   
       100-READ.                                     
           MOVE '01'           TO IN-ID
           MOVE 'ZHANGSAN'     TO IN-NAME
           .                       
           WRITE IN-RECORD
             INVALID KEY                             
               DISPLAY "INVALID KEY, WRITE ERROR"                 
               GO TO 100-END                         
             NOT INVALID KEY                         
               DISPLAY "ID :" IN-ID  " NAME:" IN-NAME          
           END-WRITE.                                            
       100-END.                                                 
           CLOSE IN-FILE.                                       
           DISPLAY "CLOSE STATUS: " IN-FILE-STATUS.             
           STOP RUN.


 
4.3 rewrite, 修改指定key值的记录 
       IDENTIFICATION DIVISION.                   
       PROGRAM-ID. VSREWRIT.                        
      *     
       ENVIRONMENT DIVISION.                      
       INPUT-OUTPUT SECTION.                      
       FILE-CONTROL.                              
           SELECT IN-FILE ASSIGN INDD             
           RECORD KEY IS IN-ID                    
           ORGANIZATION IS INDEXED                
           ACCESS MODE IS RANDOM                  
           FILE STATUS IS IN-FILE-STATUS.         
      *
       DATA DIVISION.                             
       FILE SECTION.                              
       FD  IN-FILE.                               
       01  IN-RECORD.  
           03 IN-ID       PIC X(02).                    
           03 IN-NAME     PIC X(18).                 
           03 FILLER      PIC X(60).                 
       WORKING-STORAGE SECTION.                      
       77  IN-FILE-STATUS PIC XX.                    
      *    
       PROCEDURE DIVISION.                           
           OPEN I-O IN-FILE.                         
           DISPLAY "OPEN STATUS: " IN-FILE-STATUS.   
       100-READ.                                     
           MOVE '00' TO IN-ID.                       
           READ IN-FILE              
             KEY IS IN-ID                            
             INVALID KEY                             
               DISPLAY "INVALID KEY"                 
               GO TO 100-END                         
             NOT INVALID KEY                         
               DISPLAY "READ ID ", IN-ID             
               IF IN-ID = '00'                                  
               THEN                                             
                 DISPLAY 'ID ', IN-ID, ' NAME IS ', IN-NAME     
                 MOVE 'MARK' TO IN-NAME                         
                 REWRITE IN-RECORD                              
                   INVALID KEY                                  
                     DISPLAY "INVALID KEY"                      
                     GO TO 100-END                              
                   NOT INVALID KEY                              
                     DISPLAY "REWRITE OK"                       
                 END-REWRITE                                    
               END-IF                                           
           END-READ.                                            
       100-END.                                                 
           CLOSE IN-FILE.                                       
           DISPLAY "CLOSE STATUS: " IN-FILE-STATUS.             
           STOP RUN.


 
4.4 delete, 删除指定key值的记录 
       IDENTIFICATION DIVISION.                  
       PROGRAM-ID. vsdelete.                       
       ENVIRONMENT DIVISION.                     
       INPUT-OUTPUT SECTION.                     
       FILE-CONTROL.                             
           SELECT IN-FILE ASSIGN INDD            
           RECORD KEY IS IN-ID                   
           ORGANIZATION IS INDEXED               
           ACCESS MODE IS RANDOM                 
           FILE STATUS IS IN-FILE-STATUS.        
       DATA DIVISION.                            
       FILE SECTION.                             
       FD  IN-FILE.                              
       01  IN-RECORD.                            
           03 IN-ID       PIC X(02).                             
           03 IN-NAME     PIC X(18).                          
           03 FILLER      PIC X(60).                          
       WORKING-STORAGE SECTION.                               
       77  IN-FILE-STATUS PIC XX.                             
       PROCEDURE DIVISION.                                    
           OPEN I-O IN-FILE.                                  
           DISPLAY "OPEN STATUS: " IN-FILE-STATUS.            
       100-READ.                                              
           MOVE '00' TO IN-ID.                                
           READ IN-FILE                        
             KEY IS IN-ID                                     
             INVALID KEY                                      
               DISPLAY "INVALID KEY"                          
               GO TO 100-END                                  
             NOT INVALID KEY                                  
               DISPLAY "READ ID ", IN-ID                      
               IF IN-ID = '00'                                  
               THEN                                             
                 DISPLAY 'ID ', IN-ID, ' NAME IS ', IN-NAME     
                 MOVE 'MARK' TO IN-NAME                         
                 DELETE IN-FILE                                 
                   INVALID KEY                                  
                     DISPLAY "INVALID KEY"                      
                     GO TO 100-END                              
                   NOT INVALID KEY                              
                     DISPLAY "DELETE OK"                        
                 END-DELETE                                     
               END-IF                                           
           END-READ.                                            
       100-END.                                                 
           CLOSE IN-FILE.                                       
           DISPLAY "CLOSE STATUS: " IN-FILE-STATUS.             
           STOP RUN.


 
4.5 start, read next,  定位到指定key值记录, 顺序往下读完. 


       IDENTIFICATION DIVISION.                            
       PROGRAM-ID. vsstart.                                
       ENVIRONMENT DIVISION.                               
       INPUT-OUTPUT SECTION.                               
       FILE-CONTROL.                                       
           SELECT IN-FILE ASSIGN INDD                      
               RECORD KEY IS IN-ID                             
               ORGANIZATION IS INDEXED                         
               ACCESS MODE IS DYNAMIC                          
               FILE STATUS IS IN-FILE-STATUS.                  
       DATA DIVISION.                                      
       FILE SECTION.                                       
       FD  IN-FILE.                                        
       01  IN-RECORD.                                      
           03 IN-ID       PIC X(02).                                
           03 IN-NAME     PIC X(18).                             
           03 FILLER      PIC X(60).                             
       WORKING-STORAGE SECTION.                                  
       77  IN-FILE-STATUS PIC XX.                                
       PROCEDURE DIVISION.                                       
           OPEN I-O IN-FILE.                                     
           DISPLAY "OPEN STATUS: " IN-FILE-STATUS.               
       100-START. 
           display "start at  01".
           
           MOVE '01' TO IN-ID                                    
           START IN-FILE                                         
             KEY >= IN-ID                                        
             INVALID KEY                                         
               DISPLAY "INVALID KEY"                             
               GO TO 100-END                                     
             NOT INVALID KEY                                     
               DISPLAY "START OK"                                
           END-START.                                     
       100-READ.                                          
           READ IN-FILE NEXT RECORD 
             AT END                                       
               DISPLAY "FILE IS END"                      
               GO TO 100-END                              
             NOT AT END                                   
               DISPLAY 'ID ', IN-ID, ' NAME IS ', IN-NAME 
               GO TO 100-READ                             
           END-READ.                                      
       100-END.                                           
           CLOSE IN-FILE.                                 
           DISPLAY "CLOSE STATUS: " IN-FILE-STATUS.       
           STOP RUN.







forwardNow
关注
  • 3
    点赞
  • 踩
  • 26
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
精通COBOL－－16.7.1 读取文件
COBOL
04-29 4684
　　CICS所支持的VSAM文件主要有KSDS、ESDS、RRDS。此外，文件在CICS中由FCT（File Control Table）所统一管理。因此，在相应的COBOL程序中不用手工定义和打开文件。假设某一文件的文件名为“TESTF”，则在程序中通过CICS读取该文件的代码通常如下：IDENTIFICATION  DIVISION.PROGRAM-ID.  FREADPG.   
VSAM的简单概述（cobol）
01-11
VSAM是Virtual Storage Access Method(虚拟存储存取方法)的缩写，它也是一种索引顺序文件的组织方式，采用B+树作为动态索引结构。
大型机面试全集 cobol jcl vsam cics db2 sql
10-20
大型机面试全集 cobol jcl vsam cics db2 sql,大型机面试的题目基本上全了，保证你满意！
12.4.2 虚拟存取方法文件 / VSAM文件
engineer0的博客
03-09 542
虚拟存储存取文件 / VSAM 只需要多逻辑上的进行操作，不需要考虑柱面磁道的实际大小
vsam
hejunv587的博客
07-28 700
http://www.newcoin.info/vsam%E6%96%87%E4%BB%B6%E7%BB%93%E6%9E%84%E5%8F%8A%E7%AE%A1%E7%90%86.html   VSAM文件结构及管理 VSAM(Virtual Storage Access Method)文件是IBM 公司在虚拟存储器和树型数据结 构的基础上，为了满足数据量大，存取速度快和维护方
VSAM操作笔记-吴钦飞.doc
09-30
### VSAM操作笔记知识点 #### 一、概要 VSAM（Virtual Storage Access Method）是一种在IBM大型机系统中高效管理文件的方法。本篇笔记主要介绍如何创建、初始化、删除VSAM文件，并提供了如何直接使用命令操作VSAM...
Virtual_Storage_Access_Method(VSAM).rar_vsam_大型机
09-24
2. **访问VSAM数据**: 通过编程语言（如COBOL、PL/I）的VSAM API进行访问，如`GET`、`PUT`、`UPDATE`等操作。 3. **维护索引**: 对于KSDS和ESDS，可使用`REORG`命令维护索引，以优化性能。 4. **备份与恢复**: 使用`...
VSAM_详细资料.pdf
03-06
mainframe的vsam数据集
vsam_protocol.ps.gz_This Is It
09-23
The CMUPA is designed to be a low bandwidth, highly flexible architecture .This is it s protocol.
【Informatica PWC】如何利用copybook导入cobol,vsam文件
IRENE0901的博客
03-02 667
cobol系统导出的数据集通常为vsam文件,无法用普通工具直接打开查看, 为cobol文件创建源(source)时不能通过普通文件(flat file)的方式直接导入。 需要借助cobol文件格式描述文件(.cbl)，里面包含cobol固定的格式段描述和copybook(包含源的字段类型长度和层组)， copybook一般在cobol提供cobol文件时会提供的可以直接用记事本打...
VSAM学习(1)
uniqueren的专栏
12-04 3849
VSAM(Virtual Storage Access Method)文件主要有以下几种形式：1.键顺序文件KSDS2.输入顺序文件ESDS3.相对记录文件RRDS4.线性文件LDSVSAM 文件结构：VSAM 数据集中的数据除线性数据集外，都被组成记录(逻辑记录)。逻辑记录是用户访问数据集的单位。·    CI（Control Interval）：一个CI 是直接访问存储设备的一片连续区域，用于
VSAM文件IO操作返回码参考
Simon's Tech Book
05-09 4128
VSAM Return Codes 00   -  SUCCESSFUL COMPLETION   02   -  DUPLICATE KEY, NON UNIQUE ALT INDEX   04   -  READ, WRONG LENGTH RECORD     05   -  OPEN, FIL
（转）VSAM文件结构及管理
mlxia的专栏
01-08 646
http://www.newcoin.info/2009/12/15/27284.html/ VSAM文件结构及管理 2009年03月16日  |  5:21 下午分类：大型机｜Mainframe  |  标签：VSAM、大机、文档资料、资料  |  <!--admin--> VSAM文件结构及管理VSAM(Virtual Storage Access Method)文件是I...
初始化VSAM
qq_39115237的博客
10-13 131
装载VSAM文件
数据结构之ISAM文件和VSAM文件
南风fahaxiki
04-23 4517
1.ISAM文件 索引顺序存取方法ISAM 为Indexed Sequential Access Methed的缩写,它是一种专为磁盘存取设计的文件组织方式。由于磁盘是以盘组,柱面和磁道三级地址存取的设备，则可对磁盘上的数据文件建立盘组、柱面和磁道R三级索引。文件的记录在同一盘组上存放时,应先集中放在一个柱面上,然后再顺序存放在相邻的柱面上,对同一柱面,则应按盘面的次序顺序存放。例如图1为存放在一个磁盘组上的ISAM文件,每个柱面建立一个磁道索引,每个磁道索引项由两部分组成:基本索引项和溢...
VSAM数据集简介
weixin_33743661的博客
03-16 384
术语虚拟存储访问方法(VSAM)既是一种数据集类型，也是一种访问方法，用来管理各种用户数据类型。作为一种访问方法，VSAM比其它磁盘访问方法提供了更多更复杂的功能。VSAM以一种唯一的，其它访问方法不理解的格式来保存磁盘记录。
cobol 文件相关语句
大道至简
04-25 1425
OPEN OPEN语句主要实现对文件的打开操作，OPEN还可以指定打开文件是输入还是输出操作。 OPEN还可以一次打开多个文件，文件之间用空格打开。 文件名必须是环境部输入、输出节中由SELECT语句所指定的文件名一致。 OPEN语句可以出现在程序中的任意位置，通常在处理的第一步 如果读文件之前没有打开，程序就会异常（ABEND） CLOSE 和OPEN一样，CLOSE用于关闭已打开的文件，不过通常用于程序的结尾。 READ READ语句从文件中读取数据，将文件中的数据读到FD语句中所定义的变量中
VSAM file status
lvasabbsdocom的专栏
08-23 1068
 状态码       在FILE-CONTROL节采用了FILE STATUS子句，则由其指定的2字节的字符型数据项记录文件操作的状态码，该状态码在执行EXCEPTION/ERROR声明或INVALID KEY/AT END子句前填写。其他状态由FILE STATUS从句中的data-name-8描述，它不能用于QSAM文件(OS/390、VM)以及行顺序文件(Workstation)。
cobol各部通用知识
qq_34822461的博客
07-25 1021
在cobol程序中，除了四大部以外，还有节和段的存在，它们一起作为程序的骨架支撑着整个程序。所以要读懂cobol程序首先就必须要弄清楚部，节和段的基本含义以及它们的定义方式（也就是语法），以下就是它们的介绍： 1.在一个cobol程序中有部，部中有节或段，节有段。因此，部中包含节或直接包含段，节中包含段，段是这之中最小的基本单元。 2.以下就是部，节和段的定义方式（即语法格式） 2.1.部的...
cobol读取vsam文件
最新发布
07-14
对于COBOL读取VSAM文件，您可以使用COBOL的输入输出操作来实现。下面是一个简单的示例代码，用于读取VSAM文件： ```cobol IDENTIFICATION DIVISION. PROGRAM-ID. READ-VSAM-FILE. DATA DIVISION. FILE SECTION. FD ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值