埋め込みの説明
@1@ : TYPEDEF
例題
[C1693.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1693. 000003 OBJECT. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 DATA01. 000007 02 DATA02 TYPEDEF PIC X(100). 000008 END OBJECT. 000009 END CLASS C1693.
C1693.cob 7: JMN1693I-S TYPEDEF句はレベル番号01の項目だけに指定できます.次の認識できる句,段落,節または部まで無効になります.