例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1534. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN DISK 000007 ORGANIZATION SEQUENTIAL 000008 PADDING CHARACTER IS "AB". 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 END PROGRAM C1534.
C1534.cob (8) : JMN1534I-S PADDING CHARACTER句の文字定数の長さは1文字でなければなりません.先頭1文字を文字定数とみなします.