Sanjeeb
Why are you calling the subroutine through an SQLExecDirect?
You just need to Call from BASIC:
Crt "Enter the Item Code :" ; Input ItemCode
Call SUB(ItemCode)
If you are wanting to get back the results from the selection in the sub, you
need to SQLExecute() it so you can SQLBindCol() the results. See the email I
posted yesterday for Babic for an example.
Regards
Brian
Hi,
I created a sub routine and tried to execute a SQL query within it. In the
Client programm i called the Subroutine within the SQLExecDirect function.
Compilation, catalogging everything was fine. But the SQLExecDirect is
returing a value '-1' which is an error and with the SQLError function I
got the error as "invalid Cursor State".
please, help me in this regard.
Below is the block of code.
>ED TEST2.BP MAIN
11 lines long.
----: PP
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: PRINT "ENTER THE ITEM CODE: ": ; INPUT ITEM
0004: ST = SQLExecDirect(@HSTMT,"CALL SUB(":ITEM:")")
0005: PRINT ST
0006: IF ST <> 0 THEN
0007: E = SQLError(SQL.NULL.HENV, SQL.NULL.HDBC, @HSTMT, STATE, CODE, MSG)
0008: PRINT "SQLSTATE = ":STATE:", ERROR CODE = ":CODE:", ERROR TEXT = "
0009: PRINT MSG
0012: END
----: pp
0001: SUBROUTINE SUB(ITM)
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: S="SELECT ITEM_CODE,DESCRIPTION FROM INVENTORY.T WHERE ITEM_CODE =
":ITM
0004: ST = SQLExecDirect(@HSTMT,S)
0005: RETURN
>RUN TEST2.BP MAIN
ENTER THE ITEM CODE: ?6
-1
SQLSTATE = 24000, ERROR CODE = 0, ERROR TEXT =
[IBM][SQL Client]Invalid cursor state
Sanjeeb
=====-----=====-----=====
Notice: The information contained in this e-mail
message and/or attachments to it may contain
confidential or privileged information. If you are
not the intended recipient, any dissemination, use,
review, distribution, printing or copying of the
information contained in this e-mail message
and/or attachments to it are strictly prohibited. If
you have received this communication in error,
please notify us by reply e-mail or telephone and
immediately and permanently delete the message
and any attachments. Thank you
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
