Compaq COBOL AAQ2G1FTK - Manual (Page 266)

Sharing Files and Locking Records
8.3 Ensuring Successful File Sharing
Example 8–2 (Cont.) Program Segment for File Status Values
* handle other possible errors here
.
.
.
RETRY-OPEN.
OPEN I-O FILE-NAME.
add 1 to RETRY-COUNT.
On OpenVMS, Table 8–4 describes RMS-STS values used in a file-sharing
environment.
Table 8–4 RMS-STS Values Used in a File-Sharing Environment (OpenVMS)
RMS-STS Value Meaning
RMS$_DIR Error in directory name
RMS$_DNF Directory not found
RMS$_DNR Device not ready or not mounted
RMS$_DUP Duplicate key detected (DUP not set)
RMS$_ENQ System service request failed
RMS$_EOF End of file detected
RMS$_FLK 1 File is locked
RMS$_FNF File not found
RMS$_FUL Device full (insufficient space)
RMS$_KEY Invalid record number key or key value
RMS$_KRF Invalid key of reference for $GET/$FIND
RMS$_KSZ Invalid key size for $GET/$FIND
RMS$_OK_RLK Record locked but read anyway
RMS$_OK_RRL Record locked against read but read anyway
RMS$_PRV 2 File protection violation
RMS$_RAC Invalid record access mode
RMS$_REX Record already exists
RMS$_RLK Record currently locked by another stream
RMS$_RNF Record not found
RMS$_RNL Record not locked
RMS$_RSZ Invalid record size
RMS$_SNE File sharing not enabled
RMS$_SPE File$_sharing page count exceeded
RMS$_SUC 3 Successful operation
RMS$_WLK Device currently write locked
1 Corresponds to File Status Value of 91
2 Corresponds to File Status Value of 30
3 Corresponds to File Status Value of 00
8–14 Sharing Files and Locking Records