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,39 @@
+      * HINA034 - SORT処理
+       >>SOURCE FORMAT IS FREE
+      * SORT文によるファイルソート
+      * 期待: SORT文, INPUT/OUTPUT PROCEDURE
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. HINA034.
+       ENVIRONMENT DIVISION.
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT IN-FILE ASSIGN TO "SORTIN.DAT"
+               ORGANIZATION IS LINE SEQUENTIAL.
+           SELECT OUT-FILE ASSIGN TO "SORTOUT.DAT"
+               ORGANIZATION IS LINE SEQUENTIAL.
+           SELECT WORK-FILE ASSIGN TO "SORTWORK".
+       DATA DIVISION.
+       FILE SECTION.
+       FD IN-FILE.
+       01 IN-REC.
+          05 IN-KEY PIC 9(05).
+          05 IN-DATA PIC X(20).
+       FD OUT-FILE.
+       01 OUT-REC.
+          05 OUT-KEY PIC 9(05).
+          05 OUT-DATA PIC X(20).
+       SD WORK-FILE.
+       01 WORK-REC.
+          05 WORK-KEY PIC 9(05).
+          05 WORK-DATA PIC X(20).
+       WORKING-STORAGE SECTION.
+       01 WS-CNT PIC 9(05).
+       01 WS-MAX PIC 9(05).
+       PROCEDURE DIVISION.
+       0000-MAIN.
+           SORT WORK-FILE
+               ON ASCENDING KEY WORK-KEY
+               USING IN-FILE
+               GIVING OUT-FILE.
+           DISPLAY "SORT COMPLETE".
+           STOP RUN.