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

2.5.83 JMN3110I-S

STRING文の受取り側項目は,英数字編集項目,数字編集項目または日本語編集項目であってはなりません.

例題

[C3110.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  C3110.
000003 DATA  DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01   AN-1 PIC X(6)  VALUE "STRING".
000006 01   AN-2 PIC ZZZ9.
000007 PROCEDURE  DIVISION.
000008 P-START.
000009     STRING AN-1   DELIMITED BY "I" INTO  AN-2.
000010     STOP RUN.

C3110.cob 9: JMN3110I-S STRING文の受取り側項目は,英数字編集項目,数字編集項目または日本語編集項目であってはなりません.