例題
[C3016.cob] 000001 @OPTIONS CONF(68) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C3016. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 ED01 PIC 9(5). 000007 PROCEDURE DIVISION. 000008 MOVE ALL "123" TO ED01. 000009 END PROGRAM C3016.
C3016.cob 8: JMN3016I-I (CONF)ALL定数を数字項目または数字編集項目に転記しています．ALL定数によって指定された文字列を受取り側項目と同じ長さとなるまで1字ずつ右の方へ反復して作成し，転記します．
