例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1147. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 WORK1 PIC 9CR9. 000006 END PROGRAM C1147.
C1147.cob (5) : JMN1147I-S 'CR'および'DB'は,PICTURE文字列の最後に指定されなければなりません.PICTURE 9とみなします.