例題
[P2338.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2338. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD SQFILE1 IS EXTERNAL 000010 LINAGE 66 000011 FOOTING 67. 000012 01 SQF1REC. 000013 02 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 PROCEDURE DIVISION. 000016 END PROGRAM P2338.
P2338.cob 11: JMN2338I-S FOOTING指定の整数は,論理ページの大きさ(語LINAGEに続く最初の整数の値)以下でなければなりません.FOOTING指定の整数を論理ページの大きさと同じとみなします.
詳細な説明
FOOTING指定は,脚書き領域の開始行を指定します.脚書き領域はページ本体内に含まれるため,この行数を超える値は不当です.