埋め込みの説明
@1@ : 一意名(集団項目)
例題
[C3462.cob] 000001 @OPTIONS RCS(UTF16) 000002 PROGRAM-ID. C3462. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 X20 PIC X(20). 000007 01 NGRP. 000008 02 N10 PIC N(10). 000009 PROCEDURE DIVISION. 000010 IF X20 > NGRP THEN 000011 DISPLAY "X20 BIGGER" 000012 ELSE 000013 DISPLAY "X20 SMALLER" 000014 END-IF 000015 END PROGRAM C3462.
C3462.cob 10: JMN3462I-W 翻訳オプションRCS(UTF16)またはENCODE指定の場合,日本語項目を含む集団項目'NGRP'の日本語部分は日本語として大小比較されません.