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).
    01 gds__trans	REDEFINES ISC_TRANS PIC S9(9) USAGE COMP.
 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
			INSERT INTO FRIEND VALUES(
					'MyFirstname',
					'MyLastName',
					'MyCity',		
					'VA',
					20)
		END-EXEC.
		DISPLAY "INSERT INTO TABLE RETURNS CODE: " SQLCODE.
		EXEC SQL
			DISCONNECT ALL
		END-EXEC.
		DISPLAY "DATABASE CLOSE RETURNS CODE: " SQLCODE.
  STOP RUN.