COBOL程序的示例代码

下面是一个简单的COBOL程序示例，它计算两个数字的和并显示结果：

IDENTIFICATION DIVISION.
PROGRAM-ID. ADDITION.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(3) VALUE 100.
01 NUM2 PIC 9(3) VALUE 200.
01 SUM PIC 9(4).

PROCEDURE DIVISION.
MAIN-PARA.
COMPUTE SUM = NUM1 + NUM2.
DISPLAY "The sum is: " SUM.
STOP RUN.

这段代码首先定义了程序的标识部分（IDENTIFICATION DIVISION），其中包括程序的ID（PROGRAM-ID）。接下来是数据部分（DATA DIVISION），其中声明了一些变量。在这个示例中，我们声明了NUM1和NUM2作为两个输入数字，以及SUM作为存储结果的变量。

在过程部分（PROCEDURE DIVISION）中，我们有一个名为MAIN-PARA的段落。这个段落使用COMPUTE语句计算NUM1和NUM2的和，并将结果存储在SUM变量中。然后，使用DISPLAY语句显示结果。最后，使用STOP RUN语句停止程序的执行。

当你运行这个COBOL程序时，它会计算NUM1和NUM2的和，并显示结果 "The sum is: 300"。

相关问题

COBOL调用子程序实现代码案例

下面是一个简单的COBOL程序示例，演示如何调用一个子程序来执行特定的任务：

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN_PROGRAM.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(3) VALUE 100.
01 NUM2 PIC 9(3) VALUE 200.
01 SUM PIC 9(4).

PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY "Calling the Subprogram to perform addition...".
PERFORM ADDITION-SUBPROGRAM.
DISPLAY "Returned from the Subprogram.".
DISPLAY "The sum is: " SUM.
STOP RUN.

ADDITION-SUBPROGRAM.
COMPUTE SUM = NUM1 + NUM2.

在这个示例中，我们定义了一个主程序（MAIN_PROGRAM），并在其中调用一个名为ADDITION-SUBPROGRAM的子程序。

主程序的PROCEDURE DIVISION部分包含了一系列指令。首先，使用DISPLAY语句显示一条消息，表示正在调用子程序执行加法操作。然后，使用PERFORM语句调用ADDITION-SUBPROGRAM子程序。

ADDITION-SUBPROGRAM子程序计算NUM1和NUM2的和，并将结果存储在SUM变量中。

当子程序执行完成后，控制权返回到主程序。主程序继续执行，使用DISPLAY语句显示一条消息表示已经从子程序返回，并显示计算得到的和。

最后，使用STOP RUN语句停止程序的执行。

当你运行这个COBOL程序时，它会输出以下内容：

Calling the Subprogram to perform addition...
Returned from the Subprogram.
The sum is: 300

这表明主程序成功调用了子程序来执行加法操作，并正确获得了结果。