埋め込みの説明
@1@ : SIA，STD
@2@ : ADDRESS OF
例題
[C9153.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9153. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01 PIC 9(5). 000008 LINKAGE SECTION. 000009 01 ZPTR0 POINTER. 000010 PROCEDURE DIVISION USING ZPTR0. 000011 P-START. 000012 IF ADDRESS OF ZPTR0 = NULL THEN 000013 MOVE 00001 TO REC01 000014 END-IF. 000015 STOP RUN.
C9153.cob 12: JMN9153I-W (STD)IF文中のADDRESS OF特殊レジスタ指定は共通範囲外です．処理を続行します．
