* HINA101 - EXEC SQL(SELECT条件)
       >>SOURCE FORMAT IS FREE
      * EXEC SQL 埋め込みSQL
      * 期待: L1キーワード "EXEC SQL" で判定
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HINA101.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-CUST-ID PIC X(10).
       01 WS-CUST-NAME PIC X(30).
       01 WS-SQLCODE PIC S9(09) COMP.
       PROCEDURE DIVISION.
       0000-MAIN.
           EXEC SQL
               SELECT CUST_NAME INTO :WS-CUST-NAME
               FROM CUSTOMERS
               WHERE CUST_ID = :WS-CUST-ID
           END-EXEC.
           IF SQLCODE = 0 THEN
               DISPLAY "FOUND:" WS-CUST-NAME
           ELSE
               DISPLAY "NOT FOUND".
           STOP RUN.