例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1280. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE END-EXEC. 000006 01 HOSTV1. 000007 02 HNUM PIC S9(4) BINARY. 000008 02 HNAME PIC X(30). 000009 EXEC SQL END DECLARE SECTION END-EXEC. 000010 END PROGRAM C1280.
C1280.cob (5) : JMN1280I-S BEGIN DECLARE SECTION文の構文に誤りがあります.