cobol - MOVE 无效 - COBOL

Question

我试图让 01-WS-PRINT REC 中的这个 move 语句工作，但由于某种原因，当我编译它时说“MOVE”无效。扫描在下一个恢复....想法？

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 程序是结构化的。有一个数据划分（分为工作存储部分和本地存储部分）。您的数据声明应该在那里完成。然后你有一个过程部门，你可以在其中放置你的代码（这里是 move 语句）。

您不能在数据分区中使用“MOVE”。因为您不能在过程部门中声明变量。

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

例如 ：

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
   .