59 lines
1.3 KiB
Plaintext
59 lines
1.3 KiB
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).
|
|
EXEC SQL BEGIN DECLARE SECTION END-EXEC
|
|
01 CITY BASED ON FRIEND.CITY.
|
|
EXEC SQL END DECLARE SECTION END-EXEC
|
|
|
|
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
|
|
DECLARE CITYLIST CURSOR FOR
|
|
SELECT CITY FROM FRIEND
|
|
END-EXEC
|
|
DISPLAY "DECLARE CURSOR RETURNS CODE: " SQLCODE.
|
|
EXEC SQL
|
|
OPEN CITYLIST
|
|
END-EXEC
|
|
DISPLAY "OPEN CURSOR RETURNS CODE: " SQLCODE.
|
|
EXEC SQL
|
|
FETCH CITYLIST INTO :CITY
|
|
END-EXEC
|
|
DISPLAY "FETCH CURSOR RETURNS CODE: " SQLCODE.
|
|
PERFORM DISPLAY-IT
|
|
UNTIL SQLCODE NOT = ZERO.
|
|
EXEC SQL
|
|
CLOSE CITYLIST
|
|
END-EXEC
|
|
DISPLAY "CLOSE CURSOR RETURNS CODE: " SQLCODE.
|
|
|
|
EXEC SQL
|
|
DISCONNECT ALL
|
|
END-EXEC.
|
|
DISPLAY "DATABASE CLOSE RETURNS CODE: " SQLCODE.
|
|
STOP RUN.
|
|
DISPLAY-IT.
|
|
DISPLAY "CITY: " CITY.
|
|
EXEC SQL
|
|
FETCH CITYLIST INTO :CITY
|
|
END-EXEC
|
|
DISPLAY "FETCH CURSOR RETURNS CODE: " SQLCODE.
|