Re: RUNSQL syntax -- MIDRANGE-L

Since I'm usinng STRDBG, must I also ENDDBG or will the ending of the pgm automatically ENDDBG...or is it even worth worrying about?

-----Original Message-----
From: fbocch2595 <fbocch2595@xxxxxxx>
To: midrange-l <midrange-l@xxxxxxxxxxxx>
Sent: Fri, Mar 15, 2013 12:49 pm
Subject: Re: RUNSQL syntax

olks, STRDBG seems the easiest way to go.
hanks, Frank

----Original Message-----
rom: Stone, Joel <Joel.Stone@xxxxxxxxxx>
o: midrange-l <midrange-l@xxxxxxxxxxxx>
ent: Tue, Mar 12, 2013 5:27 pm
ubject: RE: RUNSQL syntax

ichael Sansoterra has a nice RPG pgm he published awhile back to make a
OKUPSQL command. Using the same WHERE clause allows you to load a CL variable
th the result.
t won't get the rows deleted directly, but should be the same thing.
lso STRDBG will show the number of rows deleted I believe - maybe the job log
uld show that.

---Original Message-----
om: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]
Behalf Of fbocch2595@xxxxxxx
nt: Tuesday, March 12, 2013 2:07 PM
: midrange-l@xxxxxxxxxxxx
bject: Re: RUNSQL syntax
hanks Paul. Any idea how to get details of how many records were deleted when
ing RUNSQL in batch in a CLP? That would be nice. What I usually do is dspfd
and aftet the RUNSQL.
ank
-----Original Message-----
om: Paul Therrien <ptherrien@xxxxxxxxxxxxxxx>
: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
nt: Tue, Mar 12, 2013 2:21 pm
bject: RE: RUNSQL syntax
UNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET'' and
pgm = ''QLESPI'' ') ) COMMIT(*NONE)
move the extraneous ')'
NSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET'' and
pgm = ''QLESPI'' ' ) COMMIT(*NONE)
ul
---Original Message-----
m: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]
Behalf Of fbocch2595@xxxxxxx
t: Tuesday, March 12, 2013 12:55 PM
midrange-l@xxxxxxxxxxxx
ject: Re: RUNSQL syntax
get A matching parenthesis not found...has anyone ever used RUNSQL like the
I want I'm asking?
---Original Message-----
m: CRPence <CRPbottle@xxxxxxxxx>
midrange-l <midrange-l@xxxxxxxxxxxx>
t: Tue, Mar 12, 2013 1:17 pm
ject: Re: RUNSQL syntax
12 Mar 2013 09:51, fbocch2595@xxxxxxx wrote:
read Rob’s great article
tp://www.itjungle.com/fhg/fhg053012-story01.html
d was able to use RUNSQL like this:
UNSQL SQL('DELETE FROM QTEMP/FILEA WHERE JOJOB = ''TJOBC''')
MMIT(*NONE)
ow, I’m using this select statement:
elect *
rom t18pf
here joentt = 'CA'
and jojob = 'QZLSFILET'
and jopgm = 'QLESPI'
hat’s the syntax of the RUNSQL that would delete based on that select, if
sible?
RUNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET''
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)
ards, Chuck
s is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list o
t a message email: MIDRANGE-L@xxxxxxxxxxxx o subscribe, unsubscribe, or
nge list options,
t: http://lists.midrange.com/mailman/listinfo/midrange-l
mail: MIDRANGE-L-request@xxxxxxxxxxxx efore posting, please take a moment to
iew the archives t http://archive.midrange.com/midrange-l.

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

s is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
post a message email: MIDRANGE-L@xxxxxxxxxxxx
subscribe, unsubscribe, or change list options,
it: http://lists.midrange.com/mailman/listinfo/midrange-l
email: MIDRANGE-L-request@xxxxxxxxxxxx
ore posting, please take a moment to review the archives
http://archive.midrange.com/midrange-l.
-
is is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
post a message email: MIDRANGE-L@xxxxxxxxxxxx
subscribe, unsubscribe, or change list options,
sit: http://lists.midrange.com/mailman/listinfo/midrange-l
email: MIDRANGE-L-request@xxxxxxxxxxxx
fore posting, please take a moment to review the archives
http://archive.midrange.com/midrange-l.
_______________________________________________________________________
is inbound email has been scanned for all viruses by the MessageLabs SkyScan
rvice.
______________________________________________________________________
_____________________________________________________________________
is outbound email has been scanned for all viruses by the MessageLabs Skyscan
rvice.
r more information please visit http://www.symanteccloud.com
____________________________________________________________________

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

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