埋め込みの説明
@1@ : SIA,STD
@2@ : ALTERNATE RECORD KEY,APPLY MULTICONVERSATION-MODE,APPLY SAVED-AREA,APPLY WITH-ONLY,ASCENDING/DESCENDING KEY,BY VALUE,CHARACTER TYPE,CODE-SET,COLUMN NUMBER,COMMON,CONTROL RECORD,CONVERTING,CORRESPONDING,CRT STATUS,CURSOR,DEPENDING ON,DESTINATION-3,END-ACCEPT,END-CALL,END-DISPLAY,END-KEY,END-OF-PAGE,EXTEND,EXTERNAL,FIRST RECORD,FORMAT,GLOBAL,GROUP,INITIAL,INVALID KEY,KEY,LINAGE,LOCK MODE,MULTIPLE FILE TAPE,NEXT,NOT AT END-OF PAGE,NOT INVALID KEY,NOT ON EXCEPTION,ON EXCEPTION,ON OVERFLOW,OPTIONAL,ORGANIZATION IS RELATIVE,ORGANIZATION IS INDEXED,PADDING CHARACTER,PASSWORD,POSITIONING POINTER,POSITIONING UNIT,PRINTING MODE,PRINTING POSITION,PROCESSING CONTROL,RECORD DELIMITER,RECORD KEY,RECORD IS VARYING IN SIZE,RECORDING MODE,REMAINDER,REPLACING,RERUN,RESERVE AREA,REVERSED,REVERSED ORDER,REPORT,SAME RECORD AREA,SAME SORT-MERGE AREA,SEGMENT-LIMIT,SELECT,SOURCE,SYMBOLIC CONSTANT,SYMBOLIC CHARACTERS,TO TEST OR PERFORM,TEST AFTER,TEST BEFORE,TYPE,VARYING,WITH DEBUGGING MODE,WITH DUPLICATE,WITH LOCK,WITH NO ADVANCING,WITH NO LIMIT,WITH NO LOCK,WITH NO REWIND
例題
[C9002.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9002. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01. 000008 02 REC-NO PIC X(5). 000009 02 REC-NAME PIC X(20). 000010 02 REC-DATA PIC X(50). 000011 01 REC02. 000012 02 REC-NO PIC X(5). 000013 02 REC-NAME PIC X(20). 000014 02 REC-DATA PIC X(50). 000015 PROCEDURE DIVISION. 000016 P-START. 000017 MOVE CORRESPONDING REC01 TO REC02. 000018 STOP RUN.
C9002.cob 17: JMN9002I-W (STD)CORRESPONDING句は共通範囲外です.処理を続行します.