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

2.3.533 JMN2916I-S

RELATIVE KEY句の指定されているファイルが外部属性を持つ場合,RELATIVE KEY句に指定されたデータ名は外部属性を持つ項目でなければなりません.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2916.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT RLFILE1 ASSIGN TO SYS001
      000007       ORGANIZATION   IS RELATIVE
      000008       RELATIVE KEY   IS WRKY.
      000009 I-O-CONTROL.
      000010 DATA           DIVISION.
      000011 FILE            SECTION.
      000012 FD RLFILE1 IS EXTERNAL.
      000013 01 RLF1REC.
      000014   02           PIC X(80).
      000015 WORKING-STORAGE SECTION.
      000016 01 WRKY        PIC 9(8) BINARY.
      000017 PROCEDURE      DIVISION.
      000018 END PROGRAM    P2916.
    

P2916.cob (8) : JMN2916I-S RELATIVE KEY句の指定されているファイルが外部属性を持つ場合,RELATIVE KEY句に指定されたデータ名は外部属性を持つ項目でなければなりません.

詳細な説明

外部属性を持つファイル(ファイル記述項にEXTERNAL句を指定したファイル)には,実行単位中で1つの記憶領域が割り当てられ,実行単位中のすべてのプログラムから参照することができます.

相対ファイル中のレコードは,RELATIVE KEYに指定した項目(相対キー)の比較によって処理されるので,ファイルが外部属性を持つならば,そのファイルに関連付けた相対キー項目も外部属性(EXTERNAL句)を持たなければなりません.