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,31 @@
+      * HINA025 - サブプログラムCALL
+       >>SOURCE FORMAT IS FREE
+      * CALL文によるサブプログラム呼び出し
+      * 期待: CALL文, LINKAGE SECTION, 2段落
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. HINA025.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-A PIC 9(05) VALUE 100.
+       01 WS-B PIC 9(05) VALUE 200.
+       01 WS-RESULT PIC 9(06).
+       PROCEDURE DIVISION.
+       0000-MAIN.
+           CALL 'HINA025SUB' USING WS-A WS-B WS-RESULT.
+           DISPLAY "RESULT=" WS-RESULT.
+           CALL 'HINA025SUB' USING WS-B WS-A WS-RESULT.
+           DISPLAY "RESULT2=" WS-RESULT.
+           STOP RUN.
+      * サブプログラム(インライン)
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. HINA025SUB.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-TEMP PIC 9(06).
+       LINKAGE SECTION.
+       01 X PIC 9(05).
+       01 Y PIC 9(05).
+       01 Z PIC 9(06).
+       PROCEDURE DIVISION USING X Y Z.
+           ADD X TO Y GIVING Z.
+           GOBACK.