使用变量中的文件名打开一个 cobol 索引顺序文件

Question

我使用 Microfocus Net Express 5.1 (Cobol)。

当我想打开一个索引顺序文件时我写

open input xyzfile

我的问题是：是否有可能以某种方式将名称 "xyzfile" 写入变量而不是

move "xyzfile" to var-file
open input var-file

提前致谢

Answer 1

来自环境部门；

   environment division.
   input-output section.
   file-control.
       select ConfigFile
              assign to wFile-folder
              organization is line sequential
              file status is wStatus.

来自工作存储部分；

   working-storage section.
   01  wFile-folder                pic x(256).
   01  wStatus                     pic x(2).

并在您的程序部门下；

      move "c:\data\configuration.txt" to wFile-folder
      open input ConfigFile

      read ConfigFile record

使用变量中的文件名打开一个 cobol 索引顺序文件

Open an cobol index-sequential file with the file name in a variable

cobol