SQL0312 on UPDATE but not on INSERT

["Peter Dow" <maillist@xxxxxxxxxxxxxxx>]

Hi Everyone,

I have the following code in an SQLRPGLE program:
------------------------------------------------------
d JrnBATCH      e ds                  extname(BATCH)
d NULLindI        s              5i 0 dim(006)

c                   Select

c                   When      @JrnEntryType='PT'c/exec SQL
c+ Insert Into BATCH
c+   Values(:JrnBATCH      :NULLindI)
c/end-exec

c                   When      @JrnEntryType='DL'
c/exec SQL
c+ Delete From BATCH
c+   Where rrn(BATCH     ) = :@JrnRRN
c/end-exec

c                   When      @JrnEntryType='UP'
c/exec SQL
c+ Update BATCH
c+   Set  ROW  =  (:JrnBATCH      :NULLindI)
c+   Where rrn(BATCH    ) = :@JrnRRN
c/end-exec

c                   EndSl
------------------------------------------------------

The fascinating thing is that the INSERT stmt compiles, but not the UPDATE.
The precompiler complains:

SQL0312  30      70  Position 26 Variable JRNBATCH not defined or not
usable.

Any ideas why?

Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
951 522-3214 cell



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.7 - Release Date: 4/12/2005