Cursor Declaration

sunojsm · New User Joined: 21 Jun 2004 Posts: 33 Location: Andorra

Hi,

Consider the following example.

EXEC SQL
DECLARE CURSOR1 CURSOR FOR
SELECT
COL_ONE
COL_TWO,
COL_THREE,
COL_FOUR
COL_FIVE

FROM TABLE1

WHERE EMPSEC =:WS-EMPSEC

WITH UR
END-EXEC.

EXEC SQL
FETCH CURSOR1
INTO
:WS-COL-ONE
,:WS-COL-TWO
,:WS-COL-THREE
,:WS-COL-FOUR ---> DECIMAL(2,0)
,:WS-COL-FIVE ---> DECIMAL(3,0)
END-EXEC.

In above statements,you can see there is no comma between COL_FOUR and COL_FIVE in DECLARE.

I noted this while debugging the program which is there in production.

Is that declaration is valid ?
How it went fine with out showing any syntax error during precompilation process?

When i checked the value in WS-COL-FOUR it shows as 3 which was correct(value same as in table1),but in WS-COL-FIVE ,
it shows 000 instead of '2' which is the value in table1 for that column. Could anyone let me know what exactly happening here.

GuyC · Posted: Wed Jun 08, 2011 4:38 pm

select col1 col2 from
is the same as
select col1 as col2 from
it doesn't matter that col2 is also a column name.

I would have thought that the precompiler would say something like "number of columns in fetch are not equal to columns in cursor". but I'm not sure.

sunojsm · New User Joined: 21 Jun 2004 Posts: 33 Location: Andorra

hi GuyC,

The AS concept is correct and i didnt get any error or warning for this while binding or compiling. Still finding an answer for this.

Thanks