埋め込みの説明
@1@ : SIA,STD
例題
[P9501.cob] 000001 @OPTIONS FLAGSW(STDH) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P9501. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 BASED-STORAGE SECTION. 000007 01 WBUF PIC X(20). 000008 WORKING-STORAGE SECTION. 000009 01 WPX POINTER. 000010 PROCEDURE DIVISION. 000011 MOVE LOW-VALUE TO WPX->WBUF 000012 END PROGRAM P9501.
P9501.cob 6: JMN9119I-W (STD)基底場所節は共通範囲外です.処理を続行します.
P9501.cob 9: JMN9116I-W (STD)USAGE句のPOINTER指定は共通範囲外です.処理を続行します.
P9501.cob 11: JMN9501I-W (STD)ポインタ修飾子は共通範囲外です.処理を続行します.