NetCOBOL V11.1 メッセージ集

2.3.184 JMN1302I-S

ファイル節のファイル記述(FD)項または作業場所節の01レベル項目以外に，EXTERNAL句は指定できません．

例題

[C1302.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1302.
000003 DATA            DIVISION.
000004 CONSTANT        SECTION.
000005 01  CONST1  PIC 9(2) VALUE 10 EXTERNAL.
000006 END PROGRAM     C1302.

C1302.cob 5: JMN1302I-S ファイル節のファイル記述(FD)項または作業場所節の01レベル項目以外に，EXTERNAL句は指定できません．

詳細な説明

ファイル記述項にEXTERNAL句を記述する場合の例

• OK

  000090 DATA           DIVISION.
  000100 FILE           SECTION.
  000110 FD MSGFILE IS EXTERNAL.
  000120 01 INFDAT.
  000130   02 INFNUM    PIC S9(8) BINARY.
  000140   02 INFMSG    PIC X(50).

• NG

  000090 DATA           DIVISION.
  000100 FILE           SECTION.
  000110 FD MSGFILE
  000120 01 INFDAT IS EXTERNAL.
  000130   02 INFNUM    PIC S9(8) BINARY.
  000140   02 INFMSG    PIC X(50).