avaneendra_linga
New User
Joined: 13 Dec 2006 Posts: 73 Location: Hyderabad
|
|
|
|
Hi am writing DB2 in rexx,
from a result table i have to fetch rows starting from 2 nd row ,for this i am trying to use WITH ROWSET POSITIONING OPTION,for this i am getting following error at prepare statement.....
SQLERRD =0,0,0,-1,39,0'
65 *-* SAY "SQLERRP ="SQLERRP
>L> "SQLERRP ="
>V> "DSNHSM1A"
>O> "SQLERRP =DSNHSM1A"
SQLERRP =DSNHSM1A
66 *-* SAY "SQLERRM ="SQLERRM
>L> "SQLERRM ="
>L> "SQLERRM"
>O> "SQLERRM =SQLERRM"
SQLERRM =SQLERRM
67 *-* SAY "SQLERRMC ="SQLERRMC
>L> "SQLERRMC ="
>V> "ROWSET?RR, CS, RS, UR"
>O> "SQLERRMC =ROWSET?RR, CS, RS, UR"
SQLERRMC =ROWSET?RR, CS, RS, UR
can anybody help on this?
code:
C1ATTR ='SENSITIVE STATIC SCROLL WITH ROWSET POSITIONING'
"EXECSQL DECLARE C1 CURSOR FOR S1"
IF SQLCODE < 0 THEN CALL SQLCA
SQLSTMT=,
"SELECT ALT_CNSM_ID FROM F6435DBP.ML_CNSM_XREF",
"WHERE LGCY_SRC_ID ='07040770022762254300001' AND ",
"CNSM_ID = 43943975 AND PARTN_NBR = 15 AND SRC_CD = 'CS' "
"EXECSQL PREPARE S1 INTO :OUTSQLDA ATTRIBUTES :C1ATTR FROM :SQ
IF SQLCODE < 0 THEN CALL SQLCA
'EXECSQL OPEN C1 '
IF SQLCODE < 0 THEN CALL SQLCA
DROP UNIQUE.
BB=1
DO UNTIL(SQLCODE > 0)
'EXECSQL FETCH ROWSET STARTING AT ABSOLUTE 2 FROM C1',
'USING DESCRIPTOR :OUTSQLDA'
-
-
-
end |
|