hangshuo652
24 lines
737 B
COBOL
24 lines
737 B
COBOL
* 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.
|