埋め込みの説明
@1@ : REDEFINES,RENAMES,CHARACTER TYPE,PRINTING POSITION,PROPERTYあるいはANY LENGTH
例題
[P5143.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5143. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 VCHR TYPEDEF. 000006 02 LENG PIC S9(9). 000007 02 XCHR PIC X(80). 000008 02 NCHR CHARACTER TYPE MODE-1 000009 PIC N(40). 000010 01 ADDR TYPE VCHR. 000011 PROCEDURE DIVISION. 000012 STOP RUN. 000013 END PROGRAM P5143.
P5143.cob 8: JMN5143I-S CHARACTER TYPE句はTYPEDEF句を指定した項目,あるいはその従属項目に指定できません.CHARACTER TYPE句は無効になります.