IDENTIFICATION DIVISION.
 PROGRAM-ID. ESQL.
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
 DATA DIVISION.
 FILE SECTION.

 WORKING-STORAGE SECTION.
    EXEC SQL
	INCLUDE XSQLCA
    END-EXEC 
    77 FIRST-NAME	PIC	X(20).
    77 LAST-NAME	PIC	X(20).
    77 COUNTER	PIC 	S9.
    01 WHERE-ERROR	PIC	X(72).
    01 isc-1db	REDEFINES isc_1db PIC X(8).
 PROCEDURE DIVISION.
 MAIN.
  	DISPLAY " ".
  	DISPLAY " ".
  	DISPLAY " DEMO ESQL PROGRAM ".
		EXEC SQL
			CREATE DATABASE 'demo.gdb'
		END-EXEC
	DISPLAY "DATABASE CREATE RETURNS CODE: " SQLCODE.
  STOP RUN.