39 lines
787 B
Plaintext
39 lines
787 B
Plaintext
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.
|
|
|