埋め込みの説明
@1@ : データ名
例題
[C3444.cob] 000001 CLASS-ID. C3444. 000002 FACTORY. 000003 PROCEDURE DIVISION. 000004* 000005 METHOD-ID. M3444. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 LINKAGE SECTION. 000009 01 WDATA-AN PIC X ANY LENGTH. 000010 PROCEDURE DIVISION USING WDATA-AN. 000011 INITIALIZE WDATA-AN. 000012 END METHOD M3444. 000013* 000014 END FACTORY. 000015 END CLASS C3444.
C3444.cob 11: JMN3444I-S INITIALIZE文に,ANY LENGTH句が指定された項目である'WDATA-AN'は指定できません.