cobol/demo/report.cob · 941 字节 · 下载原文

      *> 小报表：定长字符项 + 数值排版 + 累加。
      *> 演示 PIC X(n) 的**定长补空格**（COBOL 的字符项是定长，短串会补空格到 n）。
      *> 运行： vml run examples/cobol/demo/report.cob
       IDENTIFICATION DIVISION.
       PROGRAM-ID. REPORT.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-TITLE PIC X(20) VALUE "* SALES REPORT *".
       01 WS-LINE  PIC X(30) VALUE SPACE.
       01 WS-I     PIC 9(3)  VALUE 0.
       01 WS-N     PIC 9(3)  VALUE 0.
       01 WS-TOTAL PIC 9(8)  VALUE 0.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY WS-TITLE.
           PERFORM ONE-ROW VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5.
           DISPLAY "TOTAL= " WS-TOTAL.
           STOP RUN.
       ONE-ROW.
           COMPUTE WS-N = WS-I * WS-I.
           ADD WS-N TO WS-TOTAL.
           MOVE "* ITEM" TO WS-LINE.
           DISPLAY WS-LINE " QTY= " WS-I " VALUE= " WS-N.