埋め込みの説明
@1@ : RENAMES
例題
[P5144.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5144. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 BLOB TYPEDEF. 000006 02 RESEV PIC S9(9) BINARY. 000007 02 LENG PIC 9(9) BINARY. 000008 02 BUFF PIC X(1024). 000009 01 GRP1 . 000010 02 B1 TYPE BLOB. 000011 66 C1 RENAMES LENG OF B1 THRU BUFF OF B1. 000012 PROCEDURE DIVISION. 000013 STOP RUN. 000014 END PROGRAM P5144.
P5144.cob 11: JMN5144I-S RENAMES句に指定するデータ名はTYPE句の参照する型から展開された項目であってはなりません．RENAMES句は無効になります．
詳細な説明
型(TYPEDEF)に含まれる名前に対して，その型をTYPE句で参照したのちに再命名することはできません．
