埋め込みの説明
@1@ : LINAGE.
例題
[P2953.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2953. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS LINE SEQUENTIAL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 000011 LINAGE 66. 000012 01 SQF1REC. 000013 02 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 01 WFS1 PIC X(2). 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2953.
P2953.cob 11: JMN2953I-S LINAGE句は行順編成のファイルに指定できません.
詳細な説明
LINAGE句は,FORMAT句なしの印刷ファイルにだけ指定することができます.