埋め込みの説明
@1@ : ON SIZE ERROR.
@2@ : ERROR.
例題
[P2642.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2642. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WNUM1 PIC S9(4) BINARY. 000007 01 WNUM2 PIC S9(4) BINARY. 000008 PROCEDURE DIVISION. 000009 COMPUTE WNUM1 = WNUM1 * WNUM2 000010 ON SIZE 000011 DISPLAY "ERROR" 000012 END-COMPUTE. 000013 END PROGRAM P2642.
P2642.cob 11: JMN2642I-S ON SIZE ERRORで語ERRORが指定されていません.語ERRORが指定されたものとみなします.
詳細な説明
ON SIZE ERROR指定を書く場合は,語ERRORは必要語です.必ず指定してください.