469 lines
13 KiB
Plaintext
Executable File
469 lines
13 KiB
Plaintext
Executable File
******************************************************************************
|
|
*
|
|
* uniVerse/SQL BCI Demo Program
|
|
*
|
|
* Module %M% Version %I% Date %H%
|
|
*
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
|
* The copyright notice above does not evidence any actual or intended
|
|
* publication of such source code.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenence log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description........................................
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 09/11/96 18854 ENF Re-work to operate with ODBC middleware
|
|
* 06/13/95 15921 MGM fix expect state to S0002
|
|
* 05/17/95 15921 MGM Modify SQLCODEMO for uniVerse
|
|
* 12/16/93 12380 ENF Add UNIVERSE.INCLUDE
|
|
* 11/19/93 12380 ENF Fix typo and bogus PRINT statements
|
|
* 10/05/93 12380 ENF Initial programming
|
|
*
|
|
*******************************************************************************
|
|
|
|
***********************************************************************
|
|
* This is a demo program showing how to use the SQL Client BCI.
|
|
* The program does the following:
|
|
* - Gather information to log onto a data source
|
|
* - Connect to the data source
|
|
* - Create a local uniVerse table, and populate it with data
|
|
* - Drop and create the tables on the server
|
|
* - Read the uniVerse file and insert the data into the server table
|
|
* - SELECT the file from the server and display it on the screen
|
|
***********************************************************************
|
|
!
|
|
* Include the ODBC definitions
|
|
!
|
|
$INCLUDE UNIVERSE.INCLUDE ODBC.H
|
|
|
|
form = "T##########"
|
|
dash = "----------"
|
|
Expect = ""
|
|
!
|
|
* Create an ODBC environment & a connection environment. Use the
|
|
* SSQLSetConnectOption to specify the Operating system user ID and
|
|
* password.
|
|
|
|
STATUS = SQLAllocEnv(DBCENV)
|
|
IF STATUS <> SQL.SUCCESS THEN STOP "Failed to allocate an ODBC environment"
|
|
|
|
STATUS = SQLAllocConnect(DBCENV,CONENV)
|
|
IF STATUS <> SQL.SUCCESS THEN STOP "Failed to allocate a CONNECT environment"
|
|
|
|
*
|
|
* Gather the data source name, userid and password for the server O/S and
|
|
* information for the DBMS at the server. The DBMS info is often also
|
|
* a user name and password, but not in all cases.
|
|
*
|
|
PRINT "Please enter the target data source ":
|
|
INPUT SOURCE
|
|
UID=""
|
|
PWD=""
|
|
gosub testodbc
|
|
|
|
if toodbc = 0
|
|
then
|
|
PRINT "Please enter the username for the server operating system login ":
|
|
INPUT OSUID
|
|
PRINT "Please enter the operating system password for user ":OSUID:" ":
|
|
ECHO OFF
|
|
INPUT OSPWD
|
|
PRINT ""
|
|
ECHO ON
|
|
PRINT "Enter name or path of remote schema/account (hit return if local)":
|
|
INPUT UID
|
|
PWD = ""
|
|
PRINT "";PRINT ""
|
|
|
|
STATUS = SQLSetConnectOption(CONENV, SQL.OS.UID, OSUID)
|
|
STATUS = SQLSetConnectOption(CONENV, SQL.OS.PWD, OSPWD)
|
|
end
|
|
else if toodbc = 1
|
|
then
|
|
PRINT "Enter the first DBMS connection parameter: ":
|
|
input UID
|
|
PRINT "Enter the second DBMS connection parameter: ":
|
|
echo off
|
|
input PWD
|
|
echo on
|
|
PRINT "";PRINT ""
|
|
end
|
|
*
|
|
* Establish a session to the specified data source
|
|
*
|
|
PRINT "Connecting to data source: ": SOURCE
|
|
Fn = "SQLConnect"
|
|
STATUS = SQLConnect(CONENV,SOURCE,UID,PWD)
|
|
GOSUB CKCONENV
|
|
*
|
|
* We're connected. Create the local uniVerse files, and load them with
|
|
* some data
|
|
*
|
|
gosub CREATEFILES
|
|
gosub LOADFILES
|
|
|
|
*
|
|
* Now alloacate an SQL statement environment
|
|
* to be used for executing SQL statements
|
|
*
|
|
Fn = "SQLAllocStmt"
|
|
STATUS = SQLAllocStmt(CONENV,STMTENV)
|
|
GOSUB CKCONENV
|
|
|
|
*
|
|
* Now... go create the tables on the remote system
|
|
* When that is done, load the tables with the appropriate data by reading
|
|
* the records from the uniVerse files
|
|
*
|
|
gosub CREATETABLES
|
|
gosub LOADTABLES
|
|
*
|
|
* Now that we've loaded the tables, read them back and display them on the
|
|
* screen
|
|
|
|
gosub SELECTFILES
|
|
|
|
*
|
|
* Now just clean up the environment and leave
|
|
*
|
|
Fn = "SQLFreeStmt"
|
|
STATUS = SQLFreeStmt(STMTENV, SQL.DROP)
|
|
GOSUB CKSTMTENV
|
|
|
|
Fn = "SQLDisconnect"
|
|
STATUS = SQLDisconnect(CONENV)
|
|
GOSUB CKCONENV
|
|
|
|
Fn = "SQLFreeConnect"
|
|
STATUS = SQLFreeConnect(CONENV)
|
|
GOSUB CKCONENV
|
|
|
|
Fn = "SQLFreeEnv"
|
|
STATUS = SQLFreeEnv(DBCENV)
|
|
IF STATUS <> SQL.SUCCESS THEN STOP "Failed to release ODBC environment"
|
|
|
|
STOP "Exiting SQLBCIDEMO"
|
|
|
|
***********************************************************************
|
|
* Function to create a set of local uniVerse files with the data that
|
|
* we will eventually upload into a server
|
|
***********************************************************************
|
|
CREATEFILES:
|
|
|
|
CREATE.STAFF = "CREATE.FILE SQLCOSTAFF 2 1 1"
|
|
DIM DICT(8)
|
|
f = @FM
|
|
DICT(2) = "EMPNUM": f:"D":f:0:f:f:f:"10L":f:"S":f:f:"CHARACTER,10":f
|
|
DICT(3) = "EMPNAME": f:"D":f:1:f:f:f:"10L":f:"S":f:f:"CHARACTER,10":f
|
|
DICT(4) = "EMPGRADE":f:"D":f:2:f:"MD0":f:f:"10R":f:"S":f:f:"INTEGER":f
|
|
DICT(5) = "EMPCITY": f:"D":f:3:f:f:f:"15L":f:"S":f:f:"CHARACTER,15":f
|
|
DICT(6) = "@REVISE": f: "PH":f:f:f:f:f:f:f:f
|
|
DICT(7) = "@":f:"PH":f:"ID.SUP EMPNUM EMPNAME EMPGRADE EMPCITY":f:f:f:f:f:f:f
|
|
DICT(8) = "@KEY":f:"PH":f:"EMPNUM":f:f:f:f:f:f:f
|
|
|
|
*
|
|
* First let's create the table in the uniVerse account
|
|
*
|
|
|
|
OPEN "SQLCOSTAFF" TO STAFFVAR THEN
|
|
CLOSE STAFFVAR
|
|
PRINT "Deleting local SQLCOSTAFF file"
|
|
EXECUTE "DELETE.FILE SQLCOSTAFF"
|
|
PRINT ""
|
|
END
|
|
|
|
EXECUTE CREATE.STAFF
|
|
PRINT ""
|
|
|
|
*
|
|
* Now populate the dictionary with definitions that would have been put in
|
|
* with the SQL statement:
|
|
* CREATE TABLE SQLCOSTAFF (TYPE 2, MODULO 1, SEPARATION 1,
|
|
* EMPNUM CHAR(10) NOT NULL PRIMARY KEY,
|
|
* EMPNAME CHAR(10), EMPGRADE INTEGER, EMPCITY CHAR(15) );
|
|
*
|
|
|
|
OPEN "DICT", "SQLCOSTAFF" TO STAFFVAR ELSE STOP "Failed to open DICT SQLCOSTAFF"
|
|
REC = ""
|
|
FOR INDEX = 2 TO 8
|
|
ID = DICT(INDEX)<1>
|
|
FOR I = 2 TO 9
|
|
REC<I-1> = DICT(INDEX)<I>
|
|
NEXT I
|
|
WRITE REC TO STAFFVAR, ID
|
|
NEXT INDEX
|
|
|
|
CLOSE STAFFVAR
|
|
RETURN
|
|
|
|
***********************************************************************
|
|
* Function to insert our data into a local set of uniVerse tables
|
|
*
|
|
***********************************************************************
|
|
LOADFILES:
|
|
|
|
*
|
|
* Setup data to insert into uniVerse tables and data source' tables
|
|
*
|
|
DIM EMPDATA(5)
|
|
EMPDATA(1) = "E1":@FM:"Alice":@FM: 12:@FM:"Deale"
|
|
EMPDATA(2) = "E2":@FM:"Betty":@FM: 10:@FM:"Vienna"
|
|
EMPDATA(3) = "E3":@FM:"Carmen":@FM: 13:@FM:"Vienna"
|
|
EMPDATA(4) = "E4":@FM:"Don":@FM: 12:@FM:"Deale"
|
|
EMPDATA(5) = "E5":@FM:"Ed":@FM: 13:@FM:"Akron"
|
|
|
|
*
|
|
* CLear the files and then load them up
|
|
*
|
|
EXECUTE "CLEAR.FILE SQLCOSTAFF"
|
|
OPEN "SQLCOSTAFF" TO STAFFVAR ELSE STOP "Failed to open SQLCOSTAFF File"
|
|
FOR INDEX = 1 TO 5
|
|
REC = EMPDATA(INDEX)
|
|
ID = REC<1>
|
|
DREC = REC<2>:@FM:REC<3>:@FM:REC<4>
|
|
WRITE DREC TO STAFFVAR, ID
|
|
NEXT INDEX
|
|
CLOSE STAFFVAR
|
|
|
|
RETURN
|
|
|
|
**************************************************************************
|
|
* CREATETABLES
|
|
* A function that will create tables on the chosen data source
|
|
**************************************************************************
|
|
CREATETABLES:
|
|
|
|
* Create Table statement to build the test table. These are in upper case
|
|
* because uniVerse systems are often case sensitive. Because this program
|
|
* can be run using the local server on uniVerse the table name on the server
|
|
* must be different than the file name on the client.
|
|
*
|
|
CTBL1 = "CREATE TABLE TSQLCOSTAFF( EMPNUM CHAR(10) NOT NULL PRIMARY KEY, EMPNAME CHAR(10), GRADE INT, CITY CHAR(15))"
|
|
!
|
|
* Drop table statements to alwasy drop the target table before re-creating
|
|
* them.
|
|
!
|
|
DTBL1 = "DROP TABLE TSQLCOSTAFF"
|
|
|
|
!
|
|
* Now create the tables needed for testing on the host DBMS
|
|
!
|
|
PRINT "Dropping TSQLCOSTAFF table at ":SOURCE
|
|
Fn = "SQLExecDirect"; Expect = "S0002"
|
|
STATUS = SQLExecDirect(STMTENV, DTBL1)
|
|
GOSUB CKSTMTENV
|
|
Expect = ""
|
|
|
|
PRINT ""; PRINT "Creating TSQLCOSTAFF table at ":SOURCE
|
|
STATUS = SQLExecDirect(STMTENV,CTBL1)
|
|
GOSUB CKSTMTENV
|
|
|
|
RETURN
|
|
|
|
|
|
**********************************************************************
|
|
* Function to insert data into the remote table
|
|
*
|
|
**********************************************************************
|
|
LOADTABLES:
|
|
|
|
*
|
|
* Note that we are using parameter markers in the SQL statement to facilitate
|
|
* loading multiple rows of data efficiently
|
|
*
|
|
INST1 = "INSERT INTO TSQLCOSTAFF VALUES ( ?, ?, ?, ?)"
|
|
|
|
ROWNUM = 0
|
|
Fn = "SQLSetParam"
|
|
PRINT ""; PRINT "Setting values for the parameter markers"
|
|
*
|
|
* Now
|
|
STATUS = SQLSetParam(STMTENV, 1, SQL.B.BASIC, SQL.CHAR, 10, 0, EMPNUM)
|
|
GOSUB CKSTMTENV
|
|
|
|
STATUS = SQLSetParam(STMTENV, 2, SQL.B.BASIC, SQL.CHAR, 10, 0, EMPNAME)
|
|
GOSUB CKSTMTENV
|
|
|
|
STATUS = SQLSetParam(STMTENV, 3, SQL.B.BASIC, SQL.INTEGER, 0, 0, GRADE)
|
|
GOSUB CKSTMTENV
|
|
|
|
STATUS = SQLSetParam(STMTENV, 4, SQL.B.BASIC, SQL.CHAR, 15, 0, CITY)
|
|
GOSUB CKSTMTENV
|
|
|
|
PRINT ""; PRINT "Prepare the SQL statement to load TSQLCOSTAFF table"
|
|
Fn = "SQLPrepare"
|
|
STATUS = SQLPrepare(STMTENV, INST1)
|
|
GOSUB CKSTMTENV
|
|
|
|
*
|
|
* Open the local uniVerse SQLCOSTAFF table and read values from it.
|
|
* Put the values we read into the SetParam variables we indicated,
|
|
* and SQLExecute the insert statement that is now prepared.
|
|
*
|
|
OPEN "SQLCOSTAFF" TO FILEVAR ELSE STOP "Failed to open SQLCOSTAFF file"
|
|
SELECT FILEVAR
|
|
|
|
NEXTID:
|
|
ROWNUM = ROWNUM+1
|
|
READNEXT ID ELSE GOTO EOD1
|
|
READ REC FROM FILEVAR,ID ELSE STOP "Error reading local SQLCOSTAFF file"
|
|
EMPNUM = ID
|
|
EMPNAME = REC<1>
|
|
GRADE = REC<2>
|
|
CITY = REC<3>
|
|
|
|
PRINT "Loading row ":ROWNUM:" of SQLCOSTAFF"
|
|
Fn = "SQLExecute"
|
|
STATUS = SQLExecute(STMTENV)
|
|
GOSUB CKSTMTENV
|
|
GOTO NEXTID
|
|
|
|
EOD1:
|
|
CLOSE FILEVAR
|
|
ROWNUM = 0
|
|
|
|
RETURN
|
|
|
|
**********************************************************************
|
|
* Function to select the data from the remote data source
|
|
*
|
|
**********************************************************************
|
|
SELECTFILES:
|
|
!
|
|
* Select statements to retrieve data from sqlcostaff table
|
|
!
|
|
SEL01 = "SELECT EMPNUM, EMPNAME, GRADE, CITY FROM TSQLCOSTAFF"
|
|
|
|
!
|
|
* Now select the data back & list it on the terminal
|
|
!
|
|
PRINT "Execute a SELECT statement against the TSQLCOSTAFF table"
|
|
PRINT ""
|
|
!
|
|
Fn = "SQLExecDirect"
|
|
STATUS = SQLExecDirect(STMTENV,SEL01)
|
|
GOSUB CKSTMTENV
|
|
!
|
|
PRINT ""; PRINT "Bind columns to program variables"
|
|
Fn = "SQLBindCol"
|
|
STATUS = SQLBindCol(STMTENV, 1, SQL.B.CHAR, EMPNUM.RET)
|
|
GOSUB CKSTMTENV
|
|
|
|
STATUS = SQLBindCol(STMTENV, 2, SQL.B.CHAR, EMPNAME.RET)
|
|
GOSUB CKSTMTENV
|
|
|
|
STATUS = SQLBindCol(STMTENV, 3, SQL.B.NUMBER, GRADE.RET)
|
|
GOSUB CKSTMTENV
|
|
|
|
STATUS = SQLBindCol(STMTENV, 4, SQL.B.CHAR, CITY.RET)
|
|
GOSUB CKSTMTENV
|
|
!
|
|
PRINT "EMPNUM" form:"EMPNAME" form:"GRADE" form :"CITY" form
|
|
PRINT dash form:dash form:dash form :dash form
|
|
STATUS = 0
|
|
LOOP
|
|
Fn = "SQLFetch"
|
|
WHILE STATUS <> SQL.NO.DATA.FOUND DO
|
|
STATUS = SQLFetch(STMTENV)
|
|
GOSUB CKSTMTENV
|
|
IF STATUS <> SQL.NO.DATA.FOUND
|
|
THEN
|
|
PRINT EMPNUM.RET form:EMPNAME.RET form:GRADE.RET form:CITY.RET
|
|
END
|
|
REPEAT
|
|
!
|
|
STATUS = SQLFreeStmt(STMTENV, SQL.UNBIND)
|
|
GOSUB CKSTMTENV
|
|
RETURN
|
|
|
|
|
|
CKCONENV:
|
|
|
|
COUNT = -1
|
|
IF STATUS EQ -2 THEN STOP "INVALID CONNECTION HANDLE"
|
|
IF STATUS NE 0
|
|
THEN
|
|
201*
|
|
ST = SQLERROR(-1,CONENV,-1,STATE,NATCODE,ERRTXT)
|
|
IF ST <> SQL.NO.DATA.FOUND
|
|
THEN
|
|
PRINT "****************************************"
|
|
COUNT = 1
|
|
IF Expect NE 0 AND STATE = Expect AND ST <> SQL.NO.DATA.FOUND
|
|
THEN
|
|
PRINT "Allowed error of ":STATE:" returned for func ":Fn
|
|
GOTO 299
|
|
END
|
|
ELSE
|
|
PRINT "Status for ":Fn:" call is: ":STATUS
|
|
PRINT "SQLSTATE,NATCOD are:" : STATE:" ":NATCODE
|
|
PRINT "Error text is"
|
|
PRINT " " : ERRTXT
|
|
END
|
|
IF ST = SQL.SUCCESS THEN GOTO 201
|
|
END
|
|
IF STATUS = -1 AND COUNT = 1 THEN STOP "EXITING CKCONENV"
|
|
END
|
|
299*
|
|
IF STATUS <> 0 THEN PRINT "****************************************"
|
|
RETURN
|
|
|
|
CKSTMTENV:
|
|
IF STATUS EQ -2 THEN STOP "INVALID STATEMENT HANDLE"
|
|
|
|
IF STATUS EQ 100 THEN RETURN
|
|
IF STATUS NE 0
|
|
THEN
|
|
301*
|
|
ST = SQLERROR(-1,-1,STMTENV,STATE,NATCODE,ERRTXT)
|
|
IF ST <> SQL.NO.DATA.FOUND
|
|
THEN
|
|
PRINT "****************************************"
|
|
COUNT = 1
|
|
IF Expect NE 0 AND STATE = Expect AND ST <> SQL.NO.DATA.FOUND
|
|
THEN
|
|
PRINT "Allowed error of ":STATE:" returned for func ":Fn
|
|
GOTO 399
|
|
END
|
|
ELSE
|
|
PRINT "Status for ":Fn:" call is: ":STATUS
|
|
PRINT "SQLSTATE,NATCOD are:" : STATE:" ":NATCODE
|
|
PRINT "Error text is "
|
|
PRINT " " : ERRTXT
|
|
END
|
|
IF ST = 0 THEN GOTO 301
|
|
END
|
|
IF STATUS = -1 AND COUNT = 1 THEN STOP "EXITING CKSTMTENV"
|
|
END
|
|
399*
|
|
IF STATUS <> 0 THEN PRINT "****************************************"
|
|
RETURN
|
|
|
|
testodbc:
|
|
* toodbc as -1 means its localuv
|
|
toodbc = -1
|
|
print "Testing for data source connectivity...."
|
|
status = SQLConnect(CONENV,SOURCE,"(*&#%@#@","(*^^#%@&# ")
|
|
if status = SQL.SUCCESS
|
|
then
|
|
status = SQLDisconnect(CONENV)
|
|
return
|
|
end
|
|
|
|
* If the connect returns IM982, then we are on UniVerse. Else it must be
|
|
* ODBC
|
|
status = SQLError(-1,CONENV,-1,STATE,NATCODE,ERRTXT)
|
|
if STATE = "IM003" then stop "The data source DBMSTYPE is neither ODBC or UNIVERSE"
|
|
if STATE = "IM002"
|
|
then
|
|
print "Data source ":SOURCE:" is not a legal data source"
|
|
stop
|
|
end
|
|
|
|
toodbc = 0
|
|
if STATE <> "IM982" then toodbc = 1
|
|
return
|