埋め込みの説明
@1@ : ANSI85
例題
[C3434.cob] 000001 CLASS-ID. C3434. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 PROCEDURE DIVISION. 000008 METHOD-ID. C3434-M. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 D908 PIC 9(8) VALUE 40404040. 000012 LINKAGE SECTION. 000013 PROCEDURE DIVISION. 000014 IF ALL '40' = D908 000015 DISPLAY "SAME" 000016 END-IF 000017 END METHOD C3434-M. 000018 END OBJECT. 000019 END CLASS C3434.
C3434.cob 14: JMN3434I-S 2文字以上のALL定数と数字項目または数字編集項目との比較は,ANSI85 COBOLの廃要素です.