埋め込みの説明
@1@ : LINAGE
例題
[C5113.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5113. 000003 IDENTIFICATION DIVISION. 000004 FACTORY. 000005 ENVIRONMENT DIVISION. 000006 INPUT-OUTPUT SECTION. 000007 FILE-CONTROL. 000008 SELECT データファイル 000009 ASSIGN TO infile 000010 ORGANIZATION IS SEQUENTIAL. 000011* 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD データファイル LINAGE 10. 000015 01 データレコード. 000016 02 商品レコード. 000017 03 商品コード PIC X(4). 000018 03 PIC X. 000019 03 商品名 PIC N(20). 000020 03 PIC X. 000021 03 単価 PIC 9(4). 000022* 000023 PROCEDURE DIVISION. 000024 IDENTIFICATION DIVISION. 000025 METHOD-ID. METHODF1. 000026 END METHOD METHODF1. 000027 END FACTORY. 000028 IDENTIFICATION DIVISION. 000029 OBJECT. 000030 PROCEDURE DIVISION. 000031 IDENTIFICATION DIVISION. 000032 METHOD-ID. METHODO1. 000033 END METHOD METHODO1. 000034 END OBJECT. 000035 END CLASS C5113.
C5113.cob 14: JMN5113I-S LINAGE句はファクトリ定義またはオブジェクト定義のデータ部には記述できません．LINAGE句は無効になります．
詳細な説明
メソッド定義のデータ部に指定できます．
