program6.cbl

来自「cobol大机操作语言的历程」· CBL 代码 · 共 20 行

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-Z.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM PIC 9999V99.
       01 NUM-EDITED PIC ZZZZ.99.
      *
       PROCEDURE DIVISION.
       MOVE 0.05 TO NUM.
       MOVE NUM TO NUM-EDITED.
       DISPLAY NUM-EDITED.
       MOVE 5000 TO NUM.
       MOVE NUM TO NUM-EDITED.
       DISPLAY NUM-EDITED.
       STOP RUN.