埋め込みの説明
@1@ : SIA,STD
@2@ : ADDRESS OF
例題
[P9180.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P9180. 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. 000011 P-START. 000012 SET ADDRESS OF ZPTR0 TO NULLS. 000013 STOP RUN.
P9180.cob 12: JMN9180I-W (STD)SET文中のADDRESS OF特殊レジスタ指定は共通範囲外です.処理を続行します.