Re: SQL for beginners

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