Re: RUNSQL syntax -- MIDRANGE-L

Folks, STRDBG seems the easiest way to go.
Thanks, Frank

-----Original Message-----
From: Stone, Joel <Joel.Stone@xxxxxxxxxx>
To: midrange-l <midrange-l@xxxxxxxxxxxx>
Sent: Tue, Mar 12, 2013 5:27 pm
Subject: RE: RUNSQL syntax

Michael Sansoterra has a nice RPG pgm he published awhile back to make a
OOKUPSQL command. Using the same WHERE clause allows you to load a CL variable
ith 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
ould show that.

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

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

-----Original Message-----
rom: Paul Therrien <ptherrien@xxxxxxxxxxxxxxx>
o: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
ent: Tue, Mar 12, 2013 2:21 pm
ubject: RE: RUNSQL syntax

UNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET'' and
opgm = ''QLESPI'' ') ) COMMIT(*NONE)
emove the extraneous ')'
UNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET'' and
opgm = ''QLESPI'' ' ) COMMIT(*NONE)
aul
----Original Message-----
om: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]
Behalf Of fbocch2595@xxxxxxx
nt: Tuesday, March 12, 2013 12:55 PM
: midrange-l@xxxxxxxxxxxx
bject: Re: RUNSQL syntax
get A matching parenthesis not found...has anyone ever used RUNSQL like the
y I want I'm asking?

---Original Message-----
om: CRPence <CRPbottle@xxxxxxxxx>
: midrange-l <midrange-l@xxxxxxxxxxxx>
nt: Tue, Mar 12, 2013 1:17 pm
bject: Re: RUNSQL syntax
n 12 Mar 2013 09:51, fbocch2595@xxxxxxx wrote:
I read Rob’s great article
ttp://www.itjungle.com/fhg/fhg053012-story01.html
nd was able to use RUNSQL like this:
RUNSQL SQL('DELETE FROM QTEMP/FILEA WHERE JOJOB = ''TJOBC''')
OMMIT(*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
ssible?
RUNSQL SQL('DELETE from t18pf where joentt = ''CA'' and jojob = 'QZLSFILET''
d 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
is is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list o
st a message email: MIDRANGE-L@xxxxxxxxxxxx o subscribe, unsubscribe, or
ange list options,
it: http://lists.midrange.com/mailman/listinfo/midrange-l
email: MIDRANGE-L-request@xxxxxxxxxxxx efore posting, please take a moment to
view the archives t http://archive.midrange.com/midrange-l.
-
is is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To
st a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
ange list options,
sit: 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.
-
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.

_______________________________________________________________________
his inbound email has been scanned for all viruses by the MessageLabs SkyScan
ervice.
_______________________________________________________________________
______________________________________________________________________
his outbound email has been scanned for all viruses by the MessageLabs Skyscan
ervice.
or more information please visit http://www.symanteccloud.com
_____________________________________________________________________
-
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.