基于CICS的COBOL程序顺序文件处理

CICS顺序文件处理中，使用浏览（browse）概念来进行操作。因而这些操作包括开启浏览，执行文件记录读取（正向/反向），关闭浏览等。

由于是CICS命令，在COBOL中使用时，必须包含在EXEC CICS语句对中。

浏览可以用于访问VSAM文件，包括PDS，ESDS, KSDS和RSDS。

1. 开启浏览（Start Browse）命令 STARTBR，命令格式：

STARTBR FILE(<file>) FCT中的文件名 RIDFIEILD(<data>) 定义起始位置，可以是索引键值（Key），RRN或RBA [RRN | RBA] 指示起始位置表述是RRN(Relative Record Number用于RRDS)还是RBA (Relataive Byte Addres用于ESDS或KSDS) [GTEQ | EQUAL] 起始于第一个键值大于等于或严格等于指定索引键值的记录 （故只对RIDFIELD为索引键有效） [GENERIC] 只对KSDS有效，指示仅部分RIDFIELD指定的键值被使用 [KEYLENGTH(data | literal)] 和GENERIC共用，用于指示键长。二进制半字长或字面值 [RESP(<response-code>)] 返回条件值

如果找到没有匹配记录，则返回NOTFND条件值，否则返回NORMAL条件值。

2. 顺序读取（前向READNEXT / 反向READPREV），命令格式：

{ READNEXT | READPREV } FILE(<file>) FCT中的文件名 INTO(<data>) 读出数据的存放位置 RIDFLD(<data>) 位置指针，和开启浏览相承，会随着读取而相应前进或后退； 用户也可在读取之前指定之从而设定读取位置 [RRN | RBA] 起始位置表述内容，类似于开启浏览 [KEYLENGTH(~)] 类似于开启浏览

注意：使用GENERIC开启的浏览，无法使用反向阅读。

3. 关闭浏览命令ENDBR，命令格式：

ENDBR FILE(<file>) FCT中的文件名

4. 重置浏览命令RESETBR，命令格式：

RESETBR FILE(<file>) RIDFLD(<data>) [RRN | RBA] [GTEQ | EQUAL] [GENERIC] [KEYLENGTH(~)]

其参数和开启命令类似，起作用是重新开始一个已经打开的浏览

返回条键值表：

条件值	原因
FILENOTFOUND	文件没有在FCT中定义
ENDFILE	到达文件边缘，没有记录可读
ILLOGIC	VSAM错误
INVREQ	浏览命令错误，通常是没有在读取之前启动浏览
IOERR	底层输入输出错误
NOTFND	命令中指定的记录没有找到
NOTOPEN	文件没有打开（FCT中配置属性问题）