例
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句は無効になります．