Ray,
Thursday, March 24, 2005, 1:52:39 PM, you wrote:
<snip>
as further follow up here is a sample routine and info. Note that
that the only problem shows up after the sqlExecute .. and it is
caused by the write ..
RUN DAVES.BP DATE_TEST.MV
****************************************
Program: DATE_TEST
Status for sqlExecute call is: -1
SQLSTATE,NATCOD are:S1C00 0
Error text is
[IBM][SQL Client][ODBC][Microsoft][ODBC SQL Server Driver]Optional feature n
ot implemented
Program "DATE_TEST.MV": Line 69, Cannot resolve ERRMSG item "EXITING CKSTMTENV".
>
sql definition:
tableName = testDate
columns
nbr int
testDate datetime
-----------------------------------------------------------------------
****************************************************
program = 'DATE_TEST'
include UNIVERSE.INCLUDE ODBC.H
equ TRUE$ to 1
equ FALSE$ to 0
equ NULL$ to ''
if (SQLAllocEnv(comBaseEnv) > SQL.SUCCESS) < SQL.SUCCESS then stop 'allocEnv'
if (SQLAllocConnect(comBaseEnv, comConnEnv) < SQL.SUCCESS) then stop
'allocConnect'
if (SQLConnect(comConnEnv, 'Universe','Universe','universe') < SQL.SUCCESS)
then stop 'Connect'
if (SQLAllocStmt(comConnEnv, sqlStmtEnv) > SQL.SUCCESS) < SQL.SUCCESS then stop
'allocStmt'
nbr = NULL$
date = NULL$
if (SQLBindParameter(sqlStmtEnv, 1, SQL.B.BASIC, SQL.INTEGER, 4, 0, nbr) <
SQL.SUCCESS) then stop 'BP nbr'
if (SQLBindParameter(sqlStmtEnv, 2, SQL.B.INTDATE, SQL.DATE, 30, 0, date) <
SQL.SUCCESS) then stop 'date'
sqlStatement = 'insert into testDate values (?,?)'
IF (SQLPrepare(sqlStmtEnv, sqlStatement) < SQL.SUCCESS) then stop 'prepare'
nbr = 1
date = 13598
status = sqlExecute(sqlStmtEnv)
if status < SQL.SUCCESS then
sqlRoutine = 'sqlExecute'
gosub CKSTMTENV
end
STOP
CKSTMTENV:
STATUS = status
Fn = sqlRoutine
Expect = ''
IF STATUS EQ -2 THEN
status = SQLFreeStmt(sqlStmtEnv, SQL.DROP)
STOP "INVALID STATEMENT HANDLE"
end
IF STATUS EQ 100 THEN RETURN
IF STATUS NE 0
THEN
301*
ST = SQLERROR(-1,-1,sqlStmtEnv,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 'Program: ': program
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
status = SQLFreeStmt(sqlStmtEnv, SQL.DROP)
STOP "EXITING CKSTMTENV"
end
END
399*
IF STATUS <> 0 THEN PRINT "****************************************"
RETURN
--
DSig `````
David Tod Sigafoos ( O O )
_______oOOo__( )__oOOo_______
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
