* ==== TYPE: ST-EVAL-ALSO ====
      * FEATURE: EVALUATE ALSO (multiple subjects)
      * STATEMENT: EVALUATE ALSO
      * BRANCHES: 4, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. EVLALS.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-STATUS  PIC X(1) VALUE 'A'.
       01 WS-TYPE    PIC X(1) VALUE 'X'.
       PROCEDURE DIVISION.
       MAIN.
           EVALUATE WS-STATUS ALSO WS-TYPE
               WHEN 'A' ALSO 'X'
                   DISPLAY 'OK: A-X'
               WHEN 'A' ALSO 'Y'
                   DISPLAY 'A-Y'
               WHEN 'B' ALSO ANY
                   DISPLAY 'B-ANY'
               WHEN OTHER
                   DISPLAY 'OTHER'.
           STOP RUN.