STATUS CODE
This field is returned by certain file-related statements (for example, CREATE, OPEN, READ, etc.) that result in a false condition, thereby setting the next true/false status indicator to F. STATUS CODE is a token field and contains a value indicating the reason for the I/O command failure, such as:
FI_AOF - Record Already on File (following a WRITE or REWRITE)
FI_EOF - End of File (following a READNEXT)
FI_NOF - Record Not in File (following a READ)
STATUS CODE can be used to set the primary key to the system message file (--- MESSAGE) to obtain a descriptive I/O error message, as shown in the example below.
OPEN TGL ACCTMS SHARE? Y FAIL 0 CACHE? N
F ERROR Unexpected Error OPEN TGL ACCTMS (see error message below)
F SET --- MESSAGE ID = --- STATUS CODE
F READ --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID
FT SET --- TEMP 80 = --- MESSAGE TXT
FT ERROR TEMP 80
The descriptive message is the same message that would be generated by setting the FAIL (or FT) parameter on the I/O statement appropriately (where 0=nothing, 1=warning, 2=error, 3=cancel).
|