* ==== TYPE: ST-GOTO-DEPENDING ====
      * FEATURE: GO TO ... DEPENDING ON
      * STATEMENT: GO TO DEPENDING ON
      * BRANCHES: 0, DECISIONS: 1
      * NOTE: GO TO DEPENDING ON is parsed as pass-through (no IF branches)
       IDENTIFICATION DIVISION.
       PROGRAM-ID. GTODEP.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-SEL    PIC 9(1) VALUE 2.
       PROCEDURE DIVISION.
       MAIN.
           GO TO PARA-1 PARA-2 PARA-3
               DEPENDING ON WS-SEL.
           DISPLAY 'FALL THROUGH'.
           STOP RUN.
       PARA-1.
           DISPLAY 'PARA-1'.
           STOP RUN.
       PARA-2.
           DISPLAY 'PARA-2'.
           STOP RUN.
       PARA-3.
           DISPLAY 'PARA-3'.
           STOP RUN.