LINAGE句とEXTERNAL句の同時指定は，プログラム定義内だけで記述可能です． LINAGE句は無効になります．
例題
[C5128.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5128. 000003 IDENTIFICATION DIVISION. 000004 OBJECT. 000005 PROCEDURE DIVISION. 000006 IDENTIFICATION DIVISION. 000007 METHOD-ID. METHODF1. 000008 ENVIRONMENT DIVISION. 000009 INPUT-OUTPUT SECTION. 000010 FILE-CONTROL. 000011 SELECT MASTRFIL 000012 ASSIGN TO INFILE 000013 ORGANIZATION IS SEQUENTIAL. 000014 DATA DIVISION. 000015 FILE SECTION. 000016 FD MASTRFIL LINAGE 10 000017 EXTERNAL. 000018 01 MASTREC. 000019 02 PRODUCT-REC. 000020 03 PRODUCT-CODE PIC X(4). 000021 03 PIC X. 000022 03 PRODCT-NAME PIC N(20). 000023 03 PIC X. 000024 03 PRICE PIC 9(4). 000025* 000026 END METHOD METHODF1. 000027 END OBJECT. 000028 END CLASS C5128.
C5128.cob 16: JMN5128I-S LINAGE句とEXTERNAL句の同時指定は，プログラム定義内だけで記述可能です．LINAGE句は無効になります．
