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