Simple SQL FETCH

Hi

We are all new to imbedded SQL.

I'm looking into the possibility of standardizing a simple loop using a cursor. What do you think of this code?

Does anyone have any standard ways of dealing with SQL error codes ?

Should I be using SQLCOD or SQLSTATE and why?

My code :


DOW GetClient ( ClientNumber );

more code...

ENDO


P GetClient B

D PI N


D ClientNumber LIKE ( DFN_CLTNO ) CONST


D wSql S 512 VARYING


D wCursorOpen S N STATIC


/FREE


IF NOT wCursorOpen;
EXSR OpenCursor;
ENDIF;


EXEC SQL

FETCH NEXT FROM C1 INTO : GlobalDS;


IF SQLCOD <> 0;
EXEC SQL
CLOSE C1;
wCursorOpen= *OFF;
RETURN *OFF;
ENDIF;


RETURN *ON;







BEGSR OpenCursor;

wSql = 'SELECT * 'FROM file, etc ' ;


EXEC SQL
PREPARE S1 FROM : wSql;


EXEC SQL
DECLARE C1 CURSOR FOR S1;


EXEC SQL
OPEN C1;


wCursorOpen= *ON;


ENDSR;

/END-FREE


P GetClient E