埋め込みの説明
@1@ : SIA,STD
@2@ : ACCEPT,DISPLAY
例題
[C9007.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9007. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 WBUF PIC X(100). 000008 SCREEN SECTION. 000009 01 REC01. 000010 02 REC-NO PIC X(5) FROM WBUF. 000011 02 REC-NAME PIC X(20) FROM WBUF. 000012 02 REC-DATA PIC X(50) FROM WBUF. 000013 PROCEDURE DIVISION. 000014 P-START. 000015 DISPLAY REC-NO. 000016 DISPLAY REC-NAME. 000017 DISPLAY REC-DATA. 000018 STOP RUN.
C9007.cob 9: JMN9506I-W (STD)画面節に書かれたデータ名は共通範囲外です.処理を続行します.
C9007.cob 15: JMN9007I-W (STD)DISPLAY文中の,画面節に書かれたデータ名は共通範囲外です.処理を続行します.
C9007.cob 16: JMN9007I-W (STD)DISPLAY文中の,画面節に書かれたデータ名は共通範囲外です.処理を続行します.
C9007.cob 17: JMN9007I-W (STD)DISPLAY文中の,画面節に書かれたデータ名は共通範囲外です.処理を続行します.