29 lines
581 B
Plaintext
29 lines
581 B
Plaintext
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.
|
|
|