RE: SQL0312 on UPDATE but not on INSERT

["Neeraj Sarougi" <neeraj.sarougi@xxxxxxx>]

I Guess your syntax for update is wrong...

c+ Update BATCH
c+   Set  Field1=  :JrnBATCH ,field2= :NULLindI 
c+   Where rrn(BATCH) = :@JrnRRN

Some thing like that...


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Dow
Sent: Wednesday, April 13, 2005 11:57 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: SQL0312 on UPDATE but not on INSERT

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


-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.