埋め込みの説明
@1@ : APPLY SAVED-AREA, APPLY MULTICONVERSATION-MODE, APPLY RECORD-OVERFLOW, APPLY CORE-INDEXあるいはAPPLY REORG-CRITERIA
例題
[C5101.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5101 INHERITS BASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ON-YOMI IS JIS1. 000007 REPOSITORY. 000008 CLASS BASE AS "System.Object". 000009 IDENTIFICATION DIVISION. 000010 OBJECT. 000011 ENVIRONMENT DIVISION. 000012 PROCEDURE DIVISION. 000013 IDENTIFICATION DIVISION. 000014 METHOD-ID. M5101. 000015 ENVIRONMENT DIVISION. 000016 INPUT-OUTPUT SECTION. 000017 FILE-CONTROL. 000018 SELECT CSFILE4 ASSIGN TO SYS001 000019 FILE STATUS IS WFS1. 000020 I-O-CONTROL. 000021 APPLY MULTICONVERSATION-MODE TO CSFILE4 000022 APPLY SAVED-AREA TO WSVAR ON CSFILE4. 000023 DATA DIVISION. 000024 FILE SECTION. 000025 FD CSFILE4. 000026 01 CSF4REC. 000027 02 PIC X(80). 000028 WORKING-STORAGE SECTION. 000029 01 WFS1 PIC X(2). 000030 01 WSVAR PIC X(80). 000031 END METHOD M5101. 000032 END OBJECT. 000033 END CLASS C5101.
C5101.cob 21: JMN5101I-S APPLY MULTICONVERSATION-MODE句はプログラム定義にだけ記述できます．APPLY MULTICONVERSATION-MODEの指定は無効になります．
C5101.cob 22: JMN5101I-S APPLY SAVED-AREA句はプログラム定義にだけ記述できます．APPLY SAVED-AREAの指定は無効になります．
