MOVE无效 - COBOL

Question

我试图在01-WS-PRINT REC中使用此移动语句，但出于某种原因，当我编译它时说＆＃34; MOVE＆＃34;无效。扫描在下一次恢复....想法？

01  WS-PRINT-REC
   10 M-DESC   PIC X(25).
   10 FILLER   PIC X(02).
   10 M-DATA   PIC X(25).
   MOVE 'STOCK SYMBOL' TO M-DESC.
   MOVE MK-SYMBOL TO M-DATA.
   PERFORM 700-PRINT-LINE.

Answer 1

COBOL程序是结构化的。 存在数据划分（分为工作存储部分和本地存储部分）。您的数据声明应该在那里完成。 然后你有一个程序部门，你可以放置你的代码（这里是移动声明）。

你不能使用＆＃34; MOVE＆＃34;在数据部门。因为你不能在程序部门中声明变量。

此外，如前所述，你不应该在每个句子的末尾使用句号。

例如：

DATA DIVISION.
WORKING-STORAGE DIVISION.
01  WS-PRINT-REC
   10 M-DESC   PIC X(25).
   10 FILLER   PIC X(02).
   10 M-DATA   PIC X(25).

PROCEDURE DIVISION.

MAIN.

   MOVE 'STOCK SYMBOL'   TO M-DESC
   MOVE MK-SYMBOL        TO M-DATA

   PERFORM 700-PRINT-LINE
   .