埋め込みの説明
@1@ : SIA，STD
@2@ : EDIT-COLOR，EDIT-CURSOR，EDIT-MODE，EDIT-OPTION，EDIT-STATUS，FCOM，LINE-COUNTER，LINAGE-COUNTER，PAGE-COUNTER，PROGRAM-STATUS，RETURN-CODE，SHIFT-IN，SHIFT-OUT，SORT-MESSAGE，SORT-MODE-SIZE，SORT-STATUS/SORT-RETURN，TALLY，WHEN-COMPILED
例題
[C9012.cob] 000001 @OPTIONS FLAGSW(STDH) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9012. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT IN-FILE ASSIGN TO INFL. 000008 SELECT OT-FILE ASSIGN TO OTFL. 000009 SELECT SORT-FILE ASSIGN TO STFL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-FILE. 000013 01 IN-REC. 000014 02 REC01 PIC X(5). 000015 02 REC02 PIC X(50). 000016 FD OT-FILE. 000017 01 OT-REC. 000018 02 REC01 PIC X(5). 000019 02 REC02 PIC X(50). 000020 SD SORT-FILE. 000021 01 ST-REC. 000022 02 RECKEY PIC X(5). 000023 02 REC02 PIC X(50). 000024 WORKING-STORAGE SECTION. 000025 PROCEDURE DIVISION. 000026 P-START. 000027 SORT SORT-FILE ASCENDING KEY RECKEY 000028 USING IN-FILE GIVING OT-FILE. 000029 IF SORT-STATUS NOT = ZERO THEN 000030 DISPLAY "** ERROR IN SORT STATEMANT **" 000031 END-IF. 000032 STOP RUN.
C9012.cob 29: JMN9012I-W (STD)特殊レジスタSORT-STATUSは共通範囲外です．処理を続行します．
