例題
[P2737.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2737. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 LINKAGE SECTION. 000006 01 WBUF POINTER. 000007 PROCEDURE DIVISION. 000008 SET ADDRESS OF WBUF TO 13 000009 END PROGRAM P2737.
P2737.cob 8: JMN2737I-S SET文のTOの後は，ポインタデータ項目，表意定数NULL(S)またはADDRESS OF特殊レジスタでなければなりません．
