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

2.4.90 JMN3130I-S

LINAGE句指定のあるファイル@1@のWRITE文に,呼び名句指定のADVANCING指定を記述することはできません.
BEFORE ADVANCING 1とみなされます.

引数の説明

@1@:

ファイル名

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3130.
      000003 ENVIRONMENT  DIVISION.
      000004 CONFIGURATION SECTION.
      000005 SPECIAL-NAMES.
      000006     CHANNEL-01 IS CHN-1.
      000007 INPUT-OUTPUT SECTION.
      000008 FILE-CONTROL.
      000009     SELECT FILE-1  ASSIGN TO S-SYS001.
      000010 DATA  DIVISION.
      000011 FILE SECTION.
      000012 FD FILE-1  LINAGE IS 50 LINES.
      000013    01 REC-1 PIC X(121).
      000014 PROCEDURE  DIVISION.
      000015     WRITE REC-1 AFTER ADVANCING CHN-1.
      000016     STOP RUN.
    

C3130.cob (15) : JMN3130I-S LINAGE句指定のあるファイル'FILE-1'のWRITE文に,呼び名句指定のADVANCING指定を記述することはできません.BEFORE ADVANCING 1とみなされます.