-1

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.
4

1 に答える 1

3

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
   .
于 2014-10-28T08:30:15.787 に答える