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

2.3.167 JMN2331I-S

LINAGE句を指定したファイルが外部ファイルの場合,データ名'@1@'は外部データ項目として定義しなければなりません.

引数の説明

@1@:

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

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2331.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT SQFILE1 ASSIGN TO SYS001.
      000007 I-O-CONTROL.
      000008 DATA           DIVISION.
      000009 FILE            SECTION.
      000010 FD SQFILE1 IS EXTERNAL
      000011            LINAGE  WPAGE.
      000012 01 SQF1REC.
      000013   02           PIC X(80).
      000014 WORKING-STORAGE SECTION.
      000015 01 WPAGE       PIC 9(2).
      000016 PROCEDURE      DIVISION.
      000017 END PROGRAM    P2331.
    

P2331.cob (11) : JMN2331I-S LINAGE句を指定したファイルが外部ファイルの場合,データ名'WPAGE'は外部データ項目として定義しなければなりません.

詳細な説明

LINAGE句を指定したファイルを外部ファイルとして共有するとき,倫理ページの構成もまた共用するため,ページ本体の行数を示すデータ項目も外部属性を持たなければなりません.