埋め込みの説明
@1@ : PROCESSING MODE,FORMAT,GROUP,SYMBOLIC DESTINATION,DESTINATION-1,DESTINATION-2,DESTINATION-3,MESSAGE MODE,END KEY,SESSION CONTROLまたはSELECTED FUNCTION.
例題
[P2801.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2801. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT FILE1 ASSIGN TO GS-SYS001 000010 SYMBOLIC DESTINATION IS "DSP" 000011 FORMAT IS WFMT 000012 GROUP IS WSTYGRP 000013 DESTINATION-1 IS WDST1 000014 FILE STATUS IS WFS1 WFS2. 000015 I-O-CONTROL. 000016 DATA DIVISION. 000017 FILE SECTION. 000018 FD FILE1. 000019 01 F1REC. 000020 02 PIC X(80). 000021 WORKING-STORAGE SECTION. 000022 01 WSTYGRP. 000023 02 WOBJ OBJECT REFERENCE FJBASE. 000024 01 WFS1 PIC X(2). 000025 01 WFS2 PIC X(4). 000026 01 WDST PIC X(3). 000027 01 WFMT PIC X(8). 000028 01 WGRP PIC X(8). 000029 01 WDST1 PIC X(8). 000030 PROCEDURE DIVISION. 000031 END PROGRAM P2801.
P2801.cob 12: JMN2801I-S GROUP句のデータ名は,英数字または集団項目でなければなりません.ただし,集団項目の場合,オブジェクト参照項目を含むものであってはなりません.