谁能提供几个COBOL的代码看看啊?

来源：百度知道 编辑：UC知道 时间：2024/09/22 21:19:19
想看看COBOL的代码写完后到底是什么样的,有人能提供点source吗?感激不尽

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
PGM-RTN SECTION.
DISPLAY "HELLO,WORLD!".
PGM-EXE.
STOP RUN.

这是个最简单的COBOL程序，COBOL程序一定要有标示部、环境部、数据部、过程部。并且顺序不能变.

1 IDENTIFICATION DIVISION.
PROGRAM-ID. N892A01S.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
S. DISPLAY 'HELLO WORLD!'
STOP RUN.

2 IDENTIFICATION DIVISION.
PROGRAM-ID. N892A02S.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(80).
PROCEDURE DIVISION.
S. ACCEPT A.