例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2873.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WDX PIC X(4) COMPUTATIONAL-4.
000007 PROCEDURE DIVISION.
000008 END PROGRAM P2873.
P2873.cob (6) : JMN2873I-S COMPUTATIONAL-4は，数字項目に指定しなければなりません．