MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » March 2013

RE: RUNSQL syntax



fixed

Michael Sansoterra has a nice RPG pgm he published awhile back to make a LOOKUPSQL command. Using the same WHERE clause allows you to load a CL variable with the result.

It won't get the rows deleted directly, but should be the same thing.

Also STRDBG will show the number of rows deleted I believe - maybe the job log would show that.




-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of fbocch2595@xxxxxxx
Sent: Tuesday, March 12, 2013 2:07 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: RUNSQL syntax


Thanks Paul. Any idea how to get details of how many records were deleted when using RUNSQL in batch in a CLP? That would be nice. What I usually do is dspfd b4 and aftet the RUNSQL.
Frank



-----Original Message-----
From: Paul Therrien <ptherrien@xxxxxxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Sent: Tue, Mar 12, 2013 2:21 pm
Subject: RE: RUNSQL syntax


RUNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET'' and
opgm = ''QLESPI'' ') ) COMMIT(*NONE)
Remove the extraneous ')'
RUNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET'' and
opgm = ''QLESPI'' ' ) COMMIT(*NONE)
Paul

----Original Message-----
rom: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]
n Behalf Of fbocch2595@xxxxxxx
ent: Tuesday, March 12, 2013 12:55 PM
o: midrange-l@xxxxxxxxxxxx
ubject: Re: RUNSQL syntax

get A matching parenthesis not found...has anyone ever used RUNSQL like the
ay I want I'm asking?


----Original Message-----
rom: CRPence <CRPbottle@xxxxxxxxx>
o: midrange-l <midrange-l@xxxxxxxxxxxx>
ent: Tue, Mar 12, 2013 1:17 pm
ubject: Re: RUNSQL syntax

n 12 Mar 2013 09:51, fbocch2595@xxxxxxx wrote:
I read Rob’s great article
http://www.itjungle.com/fhg/fhg053012-story01.html
and was able to use RUNSQL like this:
RUNSQL SQL('DELETE FROM QTEMP/FILEA WHERE JOJOB = ''TJOBC''')
COMMIT(*NONE)
Now, I’m using this select statement:
select *
from t18pf
where joentt = 'CA'
and jojob = 'QZLSFILET'
and jopgm = 'QLESPI'
What’s the syntax of the RUNSQL that would delete based on that select, if
ossible?
RUNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET''
nd jopgm = ''QLESPI'' ') ) COMMIT(*NONE)
or perhaps:
RUNSQL SQL('create view qtemp/dlt_from as ( select * from t18pf here joentt
''CA'' and jojob = ''QZLSFILET'' and jopgm = ''QLESPI''
) COMMIT(*NONE)
RUNQRY *N ((QTEMP/DLT_FROM)) /* optionally verify result of SELECT */
RUNSQL SQL('delete from qtemp/dlt_from') COMMIT(*NONE)
-
gards, Chuck

is is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list o
ost a message email: MIDRANGE-L@xxxxxxxxxxxx o subscribe, unsubscribe, or
hange list options,
sit: http://lists.midrange.com/mailman/listinfo/midrange-l
email: MIDRANGE-L-request@xxxxxxxxxxxx efore posting, please take a moment to
eview the archives t http://archive.midrange.com/midrange-l.

-
his is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To
ost a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
hange list options,
isit: http://lists.midrange.com/mailman/listinfo/midrange-l
r email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment
o review the archives at http://archive.midrange.com/midrange-l.





Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact