例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3018.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 ED01 PIC 9(5).
000006 PROCEDURE DIVISION.
000007 MOVE "1234E" TO ED01.
000008 END PROGRAM C3018.
C3018.cob (7) : JMN3018I-S 数字項目に転記する文字定数は，数字のみで構成されていなければなりません．