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,24 @@
+      * >>SOURCE FORMAT IS FREE
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. TEST.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-A PIC X(01).
+       01 WS-B PIC 9(05).
+       01 WS-C PIC X(20).
+       PROCEDURE DIVISION.
+           IF WS-A = 'A' THEN
+               MOVE 'HIGH' TO WS-C
+               IF WS-B > 1000 THEN
+                   MOVE 'HIGH-1000' TO WS-C
+               ELSE
+                   MOVE 'LOW-1000' TO WS-C
+               END-IF
+           ELSE IF WS-A = 'B' THEN
+               MOVE 'MED' TO WS-C
+               IF WS-B > 500 THEN
+                   MOVE 'MED-500' TO WS-C
+               END-IF
+           ELSE
+               MOVE 'OTHER' TO WS-C.
+           GOBACK.