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

2.5.162 JMN3262I-I

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

例題

[C3262.cob]
000001 @OPTIONS CONF(V10)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3262.
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 LINAGE IS 50 LINES.
000011    01 REC-1 PIC X(80).
000012 PROCEDURE DIVISION.
000013     OPEN OUTPUT FILE-1.
000014     WRITE REC-1.
000015     WRITE REC-1.
000016     CLOSE FILE-1.
000017     STOP RUN.

C3262.cob 14: JMN3262I-I (CONF)LINAGE句指定のあるファイルに対して,ADVANCING指定のないWRITE文が指定されています.AFTER ADVANCING 1として受け入れられます.

C3262.cob 15: JMN3262I-I (CONF)LINAGE句指定のあるファイルに対して,ADVANCING指定のないWRITE文が指定されています.AFTER ADVANCING 1として受け入れられます.