例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3158.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC X(10).
000007 PROCEDURE DIVISION.
000008 P-START.
000009 INITIALIZE A REPLACING NUMERIC BY 1
000010 ALPHABETIC BY "A".
000011 STOP RUN.
C3158.cob (9) : JMN3158I-I INITIALIZE文で，初期値が代入される項目が一つもありません．