例題
[C1534.cob] 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文字を文字定数とみなします.