v1: executing-plans 模式生成，54 文件 1320 行 Python

2026-05-24 10:02:52 +08:00
commit 06b295f780
55 changed files with 1749 additions and 0 deletions
@@ -0,0 +1,29 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. SIMPLE.
+       ENVIRONMENT DIVISION.
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT INFILE ASSIGN TO "input.bin"
+           ORGANIZATION IS SEQUENTIAL.
+       DATA DIVISION.
+       FILE SECTION.
+       FD INFILE.
+       01 BILL-RECORD.
+          05 BR-AMT    PIC S9(7)V99 COMP-3.
+          05 BR-STATUS PIC X.
+          05 BR-DATE   PIC 9(8).
+       WORKING-STORAGE SECTION.
+       01 WS-EOF PIC X VALUE 'N'.
+       PROCEDURE DIVISION.
+           OPEN INPUT INFILE.
+           PERFORM UNTIL WS-EOF = 'Y'
+               READ INFILE INTO BILL-RECORD
+                   AT END MOVE 'Y' TO WS-EOF
+                   NOT AT END
+                       DISPLAY BR-AMT
+                       DISPLAY BR-STATUS
+                       DISPLAY BR-DATE
+               END-READ
+           END-PERFORM.
+           CLOSE INFILE.
+           STOP RUN.