埋め込みの説明
@1@ : STD
例題
[C9154.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9154. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01 PIC 9(4). 000008 01 REC02 PIC 9(4). 000009 PROCEDURE DIVISION. 000010 P-START. 000011 IF REC01 = LOW-VALUE THEN 000012 EVALUATE REC02 000013 WHEN 0 000014 DISPLAY "REC02=0" 000015 WHEN OTHER 000016 DISPLAY "REC02=" REC02 000017 END-EVALUATE 000018 END-IF. 000019 STOP RUN.
C9154.cob 12: JMN9154I-W (STD)IF文中の条件文は共通範囲外です．処理を続行します．
C9154.cob 12: JMN9001I-W (STD)EVALUATE文は共通範囲外です．処理を続行します．
