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

 WORKING-STORAGE SECTION.
    EXEC SQL
	INCLUDE SQLCA
    END-EXEC 
    77 COUNTER	PIC 	S9.
    01 WHERE-ERROR	PIC	X(72).
 PROCEDURE DIVISION.
 MAIN.
  	DISPLAY " ".
  	DISPLAY " ".
  	DISPLAY " DEMO ESQL PROGRAM ".
		EXEC SQL
			CONNECT TO 'demo.gdb'
		END-EXEC
		DISPLAY "DATABASE OPEN RETURNS CODE: " SQLCODE.
		EXEC SQL
			CREATE TABLE FRIEND(
					FIRSTNAME  CHAR(15),
					LASTNAME   CHAR(20),
					CITY	   CHAR(15),		
					STATE	   CHAR(2),
					AGE	   INTEGER)
		END-EXEC
		DISPLAY "TABLE CREATE RETURNS CODE: " SQLCODE.
		EXEC SQL
			DISCONNECT ALL
		END-EXEC.
		DISPLAY "DATABASE DISCONNECT RETURNS CODE: " SQLCODE.
  STOP RUN.