例題
[C3014.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3014. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC 9P. 000007 01 AN01 PIC X. 000008 PROCEDURE DIVISION. 000009 MOVE ED01 TO AN01. 000010 END PROGRAM C3014.
C3014.cob 9: JMN3014I-I (CONF)文字作用対象と数字作用対象の転記で,数字作用対象が小数点の左端にPを持っています.数字作用対象のPの位置にゼロがあるかのように転記します.