埋め込みの説明
@1@ : データ名
例題
000001 @OPTIONS ENCODE(UTF8,UTF16,LE) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3562. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET U16L FOR NATIONAL UTF16LE 000008 ALPHABET U32L FOR NATIONAL UTF32LE 000009 . 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 TBL. 000013 02 X OCCURS 5 TIMES ASCENDING KEY IS A 000014 INDEXED BY IX1. 000015 03 A PIC N(8) ENCODING U16L. 000016 01 B PIC N(8) ENCODING U32L. 000017 PROCEDURE DIVISION. 000018 SEARCH ALL X 000019 WHEN A(IX1) = B 000020 CONTINUE 000021 END-SEARCH.
C3562.cob 19: JMN3562I-S SEARCH ALL文のキー項目'A'および比較する対象のエンコード方式は，同じでなければなりません．
C3562.cob 19: JMN3563I-S エンコード方式が異なるデータ項目の比較は記述できません．
