【发布时间】:2021-12-25 20:00:12
【问题描述】:
几天前我开始学习 Cobol,我正在观看有关基础知识的视频。我遇到的问题是我正在从另一个文件调用例程,当我编译程序时,我收到错误 libcob: module 'GETSUM' not found。 我在 Windows 10 上使用带有 ubuntu 20.04.4 LTS 的 wsl2 虚拟机。作为编译器,我使用的是 GnuCobol 2.2.0
主文件代码:
IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-TUTORIAL5.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE 5.
01 Num2 PIC 9 VALUE 4.
01 Sum1 PIC 99.
PROCEDURE DIVISION.
CALL 'GETSUM' USING Num1, Num2, Sum1.
DISPLAY Num1 " + " Num2 " = " Sum1.
STOP RUN.
获取总和文件:
IDENTIFICATION DIVISION.
PROGRAM-ID. GETSUM.
DATA DIVISION.
LINKAGE SECTION.
01 LNum1 PIC 9 VALUE 5.
01 LNum2 PIC 9 VALUE 4.
01 LSum PIC 99.
PROCEDURE DIVISION USING LNum1, LNum2, LSum,.
ADD LNum1 TO LNum2 GIVING LSum.
EXIT PROGRAM.
【问题讨论】:
标签: cobol