埋め込みの説明
@1@ : エラーを検出した文の動詞.
例題
[P2547.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2547. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WBUF PIC X(20). 000007 PROCEDURE DIVISION. 000008 EXAMINE WBUF 000009 TALLYING LEADING ALL "A" 000010 END PROGRAM P2547.
P2547.cob 9: JMN2547I-S EXAMINE文にはALL定数が指定できません.ALLは,無効になります.
詳細な説明
ALL定数の長さは翻訳時に決定できないため,文字列操作の文(EXAMINE文,INSPECT文,STRING文,UNSTRING文)では使用できません.
(EXAMINE文はOSIV系システムの固有機能です.)