埋め込みの説明
@2@ : TO, UP BYまたはDOWN BY
例題
[C3342.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3342. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X. 000007 01 B USAGE IS POINTER. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 SET B TO A. 000011 END PROGRAM C3342.
C3342.cob 10: JMN3342I-S SET文のTO指定の項目'A'は,指標名,指標データ項目,整数項目,ポインタデータ項目,NULL,ADDRESS OF特殊レジスタまたはオブジェクト参照データ項目でなければなりません.