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

2.3.490 JMN2847I-S

名標'@1@'は,一意な記号定数でなければなりません.

引数の説明

@1@:

エラーの原因となったデータ名.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2847.
      000003 ENVIRONMENT    DIVISION.
      000004 CONFIGURATION   SECTION.
      000005 SPECIAL-NAMES.
      000006     SYMBOLIC CONSTANT
      000007         BLKLEN  IS 80.
      000008 INPUT-OUTPUT    SECTION.
      000009 FILE-CONTROL.
      000010     SELECT SQFILE1 ASSIGN TO SYS001.
      000011 DATA           DIVISION.
      000012 FILE            SECTION.
      000013 FD SQFILE1
      000014       BLOCK CONTAINS BLKLEN RECORDS.
      000015 01 SQF1REC     PIC X(80).
      000016 WORKING-STORAGE SECTION.
      000017 01 BLKLEN      PIC S9(2) BINARY.
      000018 PROCEDURE      DIVISION.
      000019 END PROGRAM    P2847.
    

P2847.cob (14) : JMN2847I-S 名標'BLKLEN'は,一意な記号定数でなければなりません.