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,命令格式:
4. 重置浏览命令RESETBR,命令格式:
RESETBR FILE(<file>) RIDFLD(<data>) [RRN | RBA] [GTEQ | EQUAL] [GENERIC] [KEYLENGTH(~)]其参数和开启命令类似,起作用是重新开始一个已经打开的浏览
返回条键值表:
条件值 | 原因 |
FILENOTFOUND | 文件没有在FCT中定义 |
ENDFILE | 到达文件边缘,没有记录可读 |
ILLOGIC | VSAM错误 |
INVREQ | 浏览命令错误,通常是没有在读取之前启动浏览 |
IOERR | 底层输入输出错误 |
NOTFND | 命令中指定的记录没有找到 |
NOTOPEN | 文件没有打开(FCT中配置属性问题) |