例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1813.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 A PIC 9(4) VALUE H"".
000006 END PROGRAM C1813.
C1813.cob (5) : JMN1813I-S 16進数字定数の長さがゼロであってはいけません．0とみなします．