埋め込みの説明
@1@ : 必要とされるレコード長を示す整数値.
例題
[P2495.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2495. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD REPFILE 000010 REPORT IS REP1. 000011 WORKING-STORAGE SECTION. 000012 01 WITM PIC N(20). 000013 REPORT SECTION. 000014 RD REP1 PAGE 66. 000015 01 TYPE DE CHARACTER TYPE MODE-3. 000016 02 LINE PLUS 1. 000017 03 COLUMN 20 PIC N(20) SOURCE WITM. 000018 03 COLUMN 80 PIC N(20) SOURCE WITM. 000019 PROCEDURE DIVISION. 000020 END PROGRAM P2495.
P2495.cob 9: JMN2495I-I CHARACTER TYPE句またはPRINTING POSITION句の指定を持つ報告書レコードが長すぎます.RECORD CONTAINS 139が指定されたとみなします.