例題
[C3157.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3157. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC 99 VALUE 10. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 INITIALIZE A REPLACING ALPHABETIC BY B. 000011 STOP RUN.
C3157.cob 10: JMN3157I-S INITIALIZE文のREPLACING指定に有効となるデータ項目が一つもありません．
