Re: SQL for beginners

[Pete Hall <pbhall@xxxxxxxxxxxxx>]

At 07:00 11/04/2002, Dennis Lovelady wrote:

> C/END-EXEC
> C/EXEC SQL   OPEN TransFile
> C/END-EXEC
> C/EXEC SQL   OPEN MstrFile
> C/END-EXEC
>
> C                   DoW       SQLCOD = 0
> C/EXEC SQL   FETCH TransFile INTO :TransBuff
> C/END-EXEC
> C                   If        SQLCOD = 0
> C/EXEC SQL   Fetch MstrFile  INTO :MstrBuff
> C/END-EXEC
>
> ...
Dennis,

Look at the precompiler code to get an idea of what you're up against. It's
not fancy. SQLCOD is simply a program variable defined by the precompiler.
You don't show the close operations. If they're not there, your opens are
most likely generating an SQLCOD <> 0, because the cursors are already
open. You should close them, but you can also initialize SQLCOD to a known
value (like zero) if there's any possibility that it may be tested before
it's initialized (it's not initialized if by RPG).


Pete Hall
pbhall@ameritech.net
http://www.ameritech.net/users/pbhall/index.html