Re: SQL works interactively but not in CL

Rob,

I fixed that problem with the news/400 RUNSQL at our site, by inserting a
space if the last character of the RUNQMQRY parameter was a space. Has been
running without problems for some time now.

cheers
Colin.W


----- Original Message -----
From: <rob@xxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, December 16, 2003 6:16 PM
Subject: Re: SQL works interactively but not in CL


How are you running it in a CL program?  There was a command published by
news/400 years ago called RUNSQL.  The problem with that one is on
occasion spaces were dropped at certain intervals and that caused
misleading errors.

Rob Berendt
--
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)




"Kern, Mary T" <MKern4@xxxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces+rob=dekko.com@xxxxxxxxxxxx
12/16/2003 01:08 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange-L (Midrange-L)" <midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
SQL works interactively but not in CL






Any idea why this will work interactively but not in a CL program?  I
can't see a problem.  The error in the CL is:

Keyword WHERE not expected. Valid tokens: , FROM INTO.
RUN QUERY command failed with SQLCODE -199.

Here is the interactive statement:

UPDATE drpp010 set drpcmm = 12, drpcdd = 15, drpccc = 20,
drpcyy = 03, drpctt = 0, drptmm = 12, drptdd = 15, drptcc = 20,
 drptyy = 03, drpcus = 'UTFERPA' WHERE drpcde = 'DR' and drptyp
 = 'FRP' and drptmm = 0 and drptdd = 0 and mstid in (select mstid
 from amrp020 where amests <> 1 and amests <> 2 and amcmbr = 'Y')

Here is the EVAL from the DEBUG:

       ....5...10...15...20...25...30...35...40...45...50...55...60
  1   'UPDATE drpp010 set drpcmm = 12, drpcdd = 16, drpccc = 20, dr'
 61   'pcyy = 03, drpctt = 0, drptmm = 12, drptdd = 16, drptcc = 20'
121   ', drptyy = 03, drpcus = 'UTFERPA' WHERE drpcde = 'DR' and dr'
181   'ptyp = 'FRP' and drptmm = 0 and drptdd = 0 and mstid in (sel'
241   'ect mstid from amrp020 where amests <> 1 and amests <> 2 and'
301   ' amcmbr = 'Y')

Thanks!
Mary

¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«
Mary Kern
Director of Information Services
University of Toledo Foundation
2801 W Bancroft St Mail Stop 319
Toledo, OH 43606
Voice: (419) 530-7730  (800) 640-0147
Fax: 419-530-2895
Email: mary.kern4@xxxxxxxxxxx

Christmas waves a magic wand over this world, and
behold, everything is softer and more beautiful.
--Norman Vincent Peale
¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»§«¤»¥«¤»«¤»¥«

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.