cobol/demo/hello.cob · 526 字节 · 下载原文

      *> 最小 COBOL 程序（**固定格式**：第 1-6 列序号区、第 7 列指示符、第 8 列起是代码）。
      *> 运行： vml run examples/cobol/demo/hello.cob
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-NAME PIC X(12) VALUE "COBOL".
       01 WS-YEAR PIC 9(4) VALUE 1959.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY "HELLO, " WS-NAME.
           DISPLAY "COBOL WAS BORN IN " WS-YEAR.
           STOP RUN.