埋め込みの説明
@1@ : 一意名(集団項目)
例題
[JMN3471I-W.cob] 000001 @OPTIONS RCS(UTF16) 000002 PROGRAM-ID. JMN3471I-W. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SMFILE ASSIGN SM1F. 000007 SELECT USFILE ASSIGN SEQ1F. 000008 SELECT GVFILE ASSIGN SEQ2F. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 SD SMFILE. 000012 01 R1. 000013 02 KEY-1 PIC X(4). 000014 02 KEY-2. 000015 03 KEY-1-1 PIC X(2). 000016 03 KEY-1-2 PIC N(1). 000017 02 R1-1 PIC X(72). 000018 FD USFILE. 000019 01 USR01 PIC X(80). 000020 FD GVFILE. 000021 01 GIV01 PIC X(80). 000022 WORKING-STORAGE SECTION. 000023 PROCEDURE DIVISION. 000024 SORT SMFILE ON ASCENDING KEY KEY-2 000025 USING USFILE 000026 GIVING GVFILE 000027 END PROGRAM JMN3471I-W.
JMN3471I-W.cob 24: JMN3471I-W 翻訳オプションRCS(UTF16)またはENCODE指定の場合,日本語項目を含む集団項目'KEY-2'の日本語部分は日本語として大小比較されません.