2.4.170 JMN3298I-S

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

引数の説明

@1@:

制御レコード名

例

      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指定は記述できません．