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

2.5.140 JMN3203I-I

(CONF)同一ファイルに対して,ADVANCING指定のあるWRITE文と指定のないWRITE文が混在しています. ADVANCING指定のないWRITE文は,AFTER ADVANCING 1として受け入れられます.

例題

[C3203.cob]
000001 @OPTIONS CONF(68)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3203.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007     SELECT FILE-1 ASSIGN TO S-SYS001.
000008 DATA DIVISION.
000009 FILE SECTION.
000010   FD FILE-1.
000011    01 REC-1 PIC X(80).
000012 PROCEDURE DIVISION.
000013     WRITE REC-1.
000014     WRITE REC-1 AFTER ADVANCING 1 LINE.
000015     STOP RUN.

C3203.cob 13: JMN3203I-I (CONF)同一ファイルに対して,ADVANCING指定のあるWRITE文と指定のないWRITE文が混在しています.ADVANCING指定のないWRITE文は,AFTER ADVANCING 1として受け入れられます.