NetCOBOL V11.0 メッセージ集

2.3.187 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).