VSAM 在 CICS 环境中的应用.doc

VSAM 在 CICS 环境中的应用 VSAM : the Virtual Storage Access Method. VSAM 可分为 KSDS,ESDS,RRDS. 在 CICS 环境下使用的VSAM 文件必须预先建立,并在FCT 中定义,且在执行VSAM 读写命令或运行读写VSAM 文件的程序前打开相应文件。 一. 读取VSAM 文件记录 语法格式: EXEC CICS READ INTO(Record-data LENGTH(Length-data DATASET(Name RIDFLD(Key-data [GENERIC KEYLENGTH (Keylength-data] [GTEQ|EQUAL|RBA|RRN] END-EXEC l [ ] 中为可选项 l Record-data:定义的读出记录存放区 l Length-data:定义的两字节二进制数指定Record-data中可存放的最长文件记录长度,当文件记录超过该指定长度时,记录将被截断放入工作区中, 并产生LENGTHERR程序错误返回码。该项对定长记录文件可不指定。 l Name:指定记录读出数据集名称。 l Key-data:指定键值,RBA 地址(Relative Byte Address,RBA 地址 为四字节二进制数或RRN记录顺序号(Relative Record Number,RRN记录顺序号为四字节二进制数。 对KSDS可指定键值,RRA地址; 对ESDS可指定RRA地址; 对RRDS可指定RRN记录顺序号。 指定键值时,可指定GTEQ 或EQUAL选项,指定RBA地址时 必须指定RBA选项。 指定RRN记录顺序号时必须指定RRN选项。 Key-data空间必须足够大从而可容下一个Full key. l GENERIC KEYLENGTH(Keylength-data:当指定一个键值不是一个 Full key,而是一个 Partial key(键值前缀时,同时指定该两选项。 Keylength-data 为两字节二进制数,指定Key-data中数据的有效长度。 l GTEQ :表示大于等于匹配,指定该选项时必须在Key-data中指定Full key。 l EQUAL:表示等于匹配,当指定GENERIC选项时,只能选择该选项。当GTEQ 或EQUAL都未指定时,EQUAL为缺省选择。 l RBA:当Key-data 使用RBA地址时指定该选项。 l RRN:当Key-data 使用RRN 记录顺序号时指定该选项。 (1 作用:用指定的键值或RBA地址或RRN 记录顺序号读出指定数据集中的 匹配记录放在读出记录工作区中。 (2 执行后可能的例外情况:(例外情况在程序中要作相应处理 ENDFILE :文件结束 NOTFND:记录未找到 INVREQ:非法请求 LENNGTHERR:文件长度错误 DSIDERR:数据集未定义 ILLOGIC:其它错误 IOERR:I/O错误 NOTOPEN:文件未打开 (3 举例: IDENTIFICATION DIVISION. . . . ENVIRONMENT DIVISION. . . . DATA DIVISION. WORKING-STORAGE SECTION. 77 LEN PIC S9(4 COMP VALUE 100. 77 REC-KEY PIC X(5 VALUE ‘REC10’ 01 WS-FILE-AREA. 10 WS-REC-KEY PIC X(5. 10 WS-REC-DESC PIC X(95. PROCEDURE DIVISION. EXEC CICS HANDLE ABEND(ABEND-SEGMENT END-EXEC. EXEC CICS HANDLE CONDITION NOTFND(NOREC END-EXEC. EXEC CICS READ INTO (WS-FILE-AREA DATASET(‘MASTER’ RIDFLD(REC-KEY LENGTH(LEN END-EXEC. ***读出记录相关处理及其它处理 . . . NOREC. ***记录未找到时的相关处理段 . . . ABEND-SEGMENT. *** 发生错误时的错误处理段 . . . 二.更新记录 更新一个VASM文件中的记录,首先必须用带UPDATE选项的READ语句读 出,然后用REWRITE语句更新记录。 (1带UPDATE选项的READ语句语法 EXEC CICS READ INTO (Record-data Length(Length-data DATASET(Name RIDFLD(Key-data UPDATE [GENERIC KEYLENGTH(Keylength-dat