cobol:如何在linux上使用副本

Question

我想知道如何使用COPY语句。我在Linux上，在Visual Studio中使用GnuCOBOL。

我已经尝试了几种方法，但都不起作用。。。

这是我的代码：

   identification division.
   environment division.
   data division.
       working-storage section.
       copy laCopy.
   procedure division.
       accept w-user-entry.
       display w-user-entry.
       stop run.

和我的副本：

   identification division.
  *environment division.
  *data division.
       working-storage section.
       01 variable.
          05 w-entreeUser PIC X(100).
       
   procedure division.
       stop run
  * GOBACK
       .

每次我收到以下错误消息：

laCopy:1: Error: Invalid indicator '' at column 7

Answer 1

Cobol来自穿孔卡时代。一行中的前七列是保留的。我忘了前六个是什么，但第七个用于(除其他外(注释：如果该列中有*，则该行被注释掉。您的代码并没有在行的开头正好使用七个空格。

这为我编译：

       identification division.
       program-id. hello.
      *environment division.
       data division.
       working-storage section.
       01 variable.
          05 w-entreeUser PIC X(100).
       procedure division.
       display 'test'.
       stop run.
      *GOBACK

Answer 2

我认为问题在于您的文案中有cobol代码。

你的文案应该只有可变的定义，应该是这样的：

        01 variable.
          05 w-entreeUser PIC X(100).

正如@Robert在cobol中所说，你可以从第8列开始使用。