*> File Status values
       01 file-status-table.
          03 file-status-record
             occurs 28 times indexed by file-status-index.
             05 file-status-number
                07 status-key-1        pic x.
                07 status-key-2        pic x.
                07 filler              redefines status-key-2.
                   09 status-key-2-num pic 9(2) comp-x.
             05 file-status-hint       pic x(25).
       01 filler redefines file-status-table.
          03 filler pic x(2)  value '00'.
          03 filler pic x(25) value 'SUCCESS'.
          03 filler pic x(2)  value '02'.
          03 filler pic x(25) value 'SUCCESS-DUPLICATE'.       
COB_STATUS_00_SUCCESS           00
COB_STATUS_02_SUCCESS_DUPLICATE     02
COB_STATUS_04_SUCCESS_INCOMPLETE    04
COB_STATUS_05_SUCCESS_OPTIONAL      05
COB_STATUS_07_SUCCESS_NO_UNIT       07
COB_STATUS_10_END_OF_FILE       10
COB_STATUS_14_OUT_OF_KEY_RANGE      14
COB_STATUS_21_KEY_INVALID       21
COB_STATUS_22_KEY_EXISTS        22
COB_STATUS_23_KEY_NOT_EXISTS        23
COB_STATUS_30_PERMANENT_ERROR       30
COB_STATUS_31_INCONSISTENT_FILENAME 31
COB_STATUS_34_BOUNDARY_VIOLATION    34
COB_STATUS_35_NOT_EXISTS        35
COB_STATUS_37_PERMISSION_DENIED     37
COB_STATUS_38_CLOSED_WITH_LOCK      38
COB_STATUS_39_CONFLICT_ATTRIBUTE    39
COB_STATUS_41_ALREADY_OPEN      41
COB_STATUS_42_NOT_OPEN          42
COB_STATUS_43_READ_NOT_DONE     43
COB_STATUS_44_RECORD_OVERFLOW       44
COB_STATUS_46_READ_ERROR        46
COB_STATUS_47_INPUT_DENIED      47
COB_STATUS_48_OUTPUT_DENIED     48
COB_STATUS_49_I_O_DENIED        49
COB_STATUS_51_RECORD_LOCKED     51
COB_STATUS_52_EOP           52
COB_STATUS_57_I_O_LINAGE        57
COB_STATUS_61_FILE_SHARING      61
COB_STATUS_91_NOT_AVAILABLE     91