埋め込みの説明
@1@ : USAGE OBJECT REFERENCE
例題
[P5118.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5118. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 AA PIC X(08). 000006 01 RR REDEFINES AA. 000007 02 OBJA USAGE OBJECT REFERENCE. 000008 PROCEDURE DIVISION. 000009 END PROGRAM P5118.
P5118.cob 7: JMN5118I-S USAGE OBJECT REFERENCE句はREDEFINES句を持つ項目に従属する項目に指定できません.書かれた通りに受け入れます.