       01 FDE-COBOL-VARIABLE-STATUS USAGE COMP PIC S9(18) SYNC LEFT.
           88 FDE-NO-ERROR VALUE 0.
           88 FDE-INVALID-STRING VALUE 1.
           88 FDE-INVALID-REAL VALUE 2.
           88 FDE-INVALID-INTEGER VALUE 3.
           88 FDE-UNKNOWN-USER-VALUE VALUE 4.
           88 FDE-INVALID-BDP-DATA VALUE 5.
           88 FDE-NO-DIGITS VALUE 6.
           88 FDE-LOSS-OF-SIGNIFICANCE VALUE 7.
           88 FDE-VARIABLE-NOT-FILLED VALUE 8.
           88 FDE-OVERFLOW VALUE 9.
           88 FDE-UNDERFLOW VALUE 10.
           88 FDE-INDEFINITE VALUE 11.
           88 FDE-INFINITE VALUE 12.
           88 FDE-VARIABLE-NOT-ENTERED VALUE 13.
           88 FDE-OUTPUT-FORMAT-BAD VALUE 14.
           88 FDE-VARIABLE-TRUNCATED VALUE 15.
           88 FDE-GR-18-DIGITS VALUE 16.
           88 FDE-INVALID-OVERPUNCH-SIGN VALUE 17.
           88 FDE-INVALID-SEPARATE-SIGN VALUE 18.
           88 FDE-C-WITHOUT-R VALUE 19.
           88 FDE-D-WITHOUT-B VALUE 20.
           88 FDE-FLOATING-NUMBER-TOO-BIG VALUE 21.
           88 FDE-INVALID-CHARACTER-ENTERED VALUE 22.
           88 FDE-NO-CR-OR-DB-NOW VALUE 23.
           88 FDE-NO-PLUS-OR-MINUS-NOW VALUE 24.
           88 FDE-NO-SCIENTIFIC-NOTATION VALUE 25.
           88 FDE-NONBLK-OUTSIDE-PARENTHESES VALUE 26.
           88 FDE-NONBLK-AFTER-TRAILING-SIGN VALUE 27.
           88 FDE-TOO-MANY-DECIMALS VALUE 28.
           88 FDE-TOO-MANY-SIGNS VALUE 29.
