* ==== TYPE: ST-SET-88 ====
      * FEATURE: SET 88-level condition to TRUE / FALSE
      * STATEMENT: SET
      * BRANCHES: 4, DECISIONS: 2
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SET88.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-FLAG    PIC X.
          88 WS-ACTIVE   VALUE 'Y'.
          88 WS-INACTIVE VALUE 'N'.
       PROCEDURE DIVISION.
       MAIN.
           SET WS-ACTIVE TO TRUE.
           IF WS-ACTIVE
               DISPLAY 'OK: SET TRUE'
           ELSE
               DISPLAY 'ERROR: SET TRUE'.
           SET WS-ACTIVE TO FALSE.
           IF WS-INACTIVE
               DISPLAY 'OK: SET FALSE'
           ELSE
               DISPLAY 'ERROR: SET FALSE'.
           STOP RUN.