IDENTIFICATION DIVISION.
       PROGRAM-ID. L88.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9 VALUE 5.
           88 SMALL VALUES 1 THRU 4.
           88 MID   VALUES 1, 3 THRU 5.
           88 BIG   VALUES 5 THRU 9.
       PROCEDURE DIVISION.
           IF BIG DISPLAY "BIG" ELSE DISPLAY "SMALL" END-IF
           SET SMALL TO TRUE
           IF SMALL DISPLAY "SMALL" ELSE DISPLAY "BIG" END-IF
           SET SMALL TO FALSE
           IF SMALL DISPLAY "BAD" ELSE DISPLAY "NOTSMALL" END-IF
           STOP RUN.