埋め込みの説明
@1@ : エラーの原因となった語.
例題
[P2693.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2693. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WGRP. 000007 02 WOCC PIC X(2) OCCURS 26 000008 INDEXED BY IX1. 000009 01 LCNT PIC S9(4) BINARY. 000010 PROCEDURE DIVISION. 000011 PERFORM TEST BEFORE 000012 VARYING LCNT FROM IX1 BY 0 UNTIL IX1 = 26 000013 DISPLAY WOCC(IX1) 000014 END-PERFORM 000015 END PROGRAM P2693.
P2693.cob 12: JMN2693I-W '0'は一意名またはゼロでない整数でなければなりません.書かれたとおり受け入れます.
詳細な説明
FROM指定に指標名を指定した場合,BY指定には0でない整数あるいは整数項目を指定しなければなりません.