例題
[C1278.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1278. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION 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 01 HOSTV2. 000011 02 HNUM PIC S9(8) BINARY. 000012 02 HNAME PIC X(30). 000013 EXEC SQL END DECLARE SECTION END-EXEC. 000014 END PROGRAM C1278.
C1278.cob 13: JMN1278I-S BEGIN DECLARE SECTION文が指定されずに，END DECLARE SECTION文が指定されています．
