ページの先頭行へ戻る
NetCOBOL V11.0 メッセージ集
FUJITSU Software

2.5.40 JMN3051I-S

CORRESPONDING指定のある@1@文に指定された@2@は,集団項目でなければなりません.

埋め込みの説明

@1@ : MOVE文,ADD文,またはSUBTRACT文
@2@ : 一意名

例題

[C3051.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3051.
000003 ENVIRONMENT  DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  AA.
000008     02 CC-1      PIC 9(4).
000009     02 CC-2      PIC 9(8).
000010 01  BB.
000011     02 CC-3      PIC 9(4).
000012     02 CC-4      PIC 9(8).
000013 PROCEDURE  DIVISION.
000014 P-START.
000015     ADD CORR CC-2 TO BB.
000016     STOP RUN.

C3051.cob 15: JMN3051I-S CORRESPONDING指定のあるADD文に指定された'CC-2'は,集団項目でなければなりません.