例
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指定に有効となるデータ項目が一つもありません.