埋め込みの説明
@1@ : USAGE OBJECT REFERENCE
例題
[P5114.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P5114. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A. 000006 02 OBJA USAGE OBJECT REFERENCE 000007 OCCURS 1 TO 10 TIMES 000008 DEPENDING ON DD. 000009 01 DD PIC S9(04). 000010 PROCEDURE DIVISION. 000011 END PROGRAM P5114.
P5114.cob 7: JMN5114I-S USAGE OBJECT REFERENCE句はOCCURS DEPENDING ON句を含むデータ項目に指定してはなりません.OCCURS DEPENDING ON句は無効になります.