Advertisement
justin_hanekom

cobol copybook for file statuses

Feb 1st, 2025
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 1.91 KB | None | 0 0
  1.        01  PREFIX-file-status                   pic x(2)
  2.                                                 value all spaces.
  3.            88  PREFIX-status-success            value "00".
  4.            88  PREFIX-status-duplicate          value "02".
  5.            88  PREFIX-status-incomplete         value "04".
  6.            88  PREFIX-status-optional           value "05".
  7.            88  PREFIX-status-no_unit            value "07".
  8.            88  PREFIX-status-end-of-file        value "10".
  9.            88  PREFIX-status-out-of-key-range   value "14".
  10.            88  PREFIX-status-key-invalid        value "21".
  11.            88  PREFIX-status-key-exists         value "22".
  12.            88  PREFIX-status-key-not-exists     value "23".
  13.            88  PREFIX-status-permanent-error    value "30".
  14.            88  PREFIX-status-inconsistent-fname value "31".
  15.            88  PREFIX-status-boundary-violation value "34".
  16.            88  PREFIX-status-not-exists         value "35".
  17.            88  PREFIX-status-permission-denied  value "37".
  18.            88  PREFIX-status-closed-with-lock   value "38".
  19.            88  PREFIX-status-conflict-attribute value "39".
  20.            88  PREFIX-status-already-open       value "41".
  21.            88  PREFIX-status-not-open           value "42".
  22.            88  PREFIX-status-read-not-done      value "43".
  23.            88  PREFIX-status-record-overflow    value "44".
  24.            88  PREFIX-status-read-error         value "46".
  25.            88  PREFIX-status-input-denied       value "47".
  26.            88  PREFIX-status-output-denied      value "48".
  27.            88  PREFIX-status-i-o-denied         value "49".
  28.            88  PREFIX-status-record-locked      value "51".
  29.            88  PREFIX-status-end-of-page        value "52".
  30.            88  PREFIX-status-i-o-linage         value "57".
  31.            88  PREFIX-status-file-sharing       value "61".
  32.            88  PREFIX-status-not-available      value "91".
  33.  
Tags: cobol copybook
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement