找不到 GnuCobol 文件

Question

我正在寻找以下问题的解决方案。 我运行一个非常简单的 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相关的东西的导出？

如有帮助，我们将不胜感激

亲切的问候。

Answer 1

我终于找到了解决办法。 我需要输入名称的完整路径。 就我而言：

"/home/user/languages/cobol_lang/sto"

-“ck.dat”

在 2 行上，因为路径的长度超过 72 个字符。 第 7 列上的 - 表示续行。 尽管如此：谢谢您的反应。

亲切的问候