我正在寻找以下问题的解决方案。 我运行一个非常简单的 cobol 程序来读取文件。
我使用以下代码:
IDENTIFICATION DIVISION.
PROGRAM-ID. GADGETS.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT Gadgetfile ASSIGN TO "STOCK.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD Gadgetfile.
文件stock.dat存在于程序的同一目录中。 我收到以下错误:
libcob:错误:文件 Gadgetfile 的文件不存在(状态 = 35)('STOCK_DAT' => STOCK.DAT) 如果我使用双引号的简单引号,则不会发生任何变化。 这意味着程序找不到该文件。 我使用在 Redat 9.4 上运行的 Gnucobol,在 fedora 40 上也出现同样的问题。
我认为我需要使用一些与DD相关的东西的导出?
如有帮助,我们将不胜感激
亲切的问候。
我终于找到了解决办法。 我需要输入名称的完整路径。 就我而言:
"/home/user/languages/cobol_lang/sto"
-“ck.dat”
在 2 行上,因为路径的长度超过 72 个字符。 第 7 列上的 - 表示续行。 尽管如此:谢谢您的反应。
亲切的问候