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

2.5.181 JMN3298I-S

制御レコード@1@に対するWRITE文に,ADVANCING指定は記述できません.

埋め込みの説明

@1@ : 制御レコード名

例題

[C3298.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3298.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006     SELECT FILE-1 ASSIGN TO SYS001
000007     FORMAT IS FMT-001.
000008 DATA DIVISION.
000009 FILE SECTION.
000010 FD FILE-1
000011     CONTROL RECORD IS CNTL-REC.
000012    01 CNTL-REC PIC X(80).
000013 WORKING-STORAGE SECTION.
000014    01 FMT-001 PIC X(8).
000015 PROCEDURE DIVISION.
000016     WRITE CNTL-REC AFTER ADVANCING 1.
000017 END PROGRAM C3298.

C3298.cob 16: JMN3298I-S 制御レコード'CNTL-REC'に対するWRITE文に,ADVANCING指定は記述できません.