例題
[P2113.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2113. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 000011 RECORD VARYING FROM 81 TO 160. 000012 01 SQF1REC. 000013 02 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 01 WFS1 PIC X(2). 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2113.
P2113.cob 10: JMN2113I-S RECORD句で指定した整数(最小文字位置数)は，レコード長と等しいか小さくなければなりません．RECORD句は，無効になります．
詳細な説明
RECORD句はレコードの大きさを規定するための句です．RECORD句でレコードの文字位置の個数の最小値を定めているとき，そのRECORD句を指定したファイルに関連するレコード記述項は，同句で規定した大きさを下回るものであってはなりません．
