埋め込みの説明
@1@ : ADDRESS OF．
例題
[P2732.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2732. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WPX POINTER. 000007 01 WBUF1 PIC X(20). 000008 LINKAGE SECTION. 000009 01 WBUF2 PIC X(20). 000010 PROCEDURE DIVISION. 000011 SET ADDRESS OF WBUF1 TO WPX 000012 SET ADDRESS OF WBUF2 TO WPX 000013 END PROGRAM P2732.
P2732.cob 11: JMN2732I-S 'ADDRESS OF'特殊レジスタの一意名は連絡節中で定義されたレベル番号が01または77の項目でなければなりません．
