test: add HINA type-specific COBOL test data suite (10 programs, 8/10 pass)

2026-06-18 16:55:43 +08:00
parent 2e64f208ea
commit 9ad0e88a1a
12 changed files with 617 additions and 0 deletions
@@ -0,0 +1,23 @@
+      * 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.