RE: SQL question

Ok. I'm trying to find out where records are being written to the whsel00
file and this isn't the place.

Are you serious about the complicated part? This code looks like complete
crap to me. :-)

Thanks.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Kevin Wright
Sent: Tuesday, February 07, 2012 7:16 PM
To: Midrange Systems Technical Discussion
Subject: RE: SQL question

Hi Jack,

e997 & e945 (& sd) are all correlation ids and correspond like this to the
file names in the SQL:

e997 - whse100
e945 - whse100
sd - whssd00

Looks like it's a little complicated :)

Regards,

Kevin Wright

LongReach - <http://www.lansa.com/longreach/> Share Files and Folders
between IBM i Servers and iPhones/iPads <http://www.lansa.com/longreach/> -
Download it for FREE today <http://www.lansa.com/longreach/> from the App
Store <http://www.lansa.com/longreach/>

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Jack Tucky
Sent: Wednesday, 8 February 2012 11:09 AM
To: 'Midrange Systems Technical Discussion'
Subject: SQL question


I'm trying to figure out a program with no documentation and
I haven't used
embedded SQL.



Given this code snippet from an SQLRPGLE source, can you tell me where
e997.snd is coming from? I also can't find e945.logid. Is
there a way to
determine from the compile listing?



I can't find a file on the system that contains 997 in the name.



exec sql

update whsel00

set aux6='ALERT NOW'

where logid in (

select e945.logid from whsel00 e945

left join whssd00 sd on sdmanbl#=cast(substring(e945.aux1,9,8) as

decimal(8,0)) and sdinvoice =e945.aux2

left join whsel00 e997 on cast(e945.gsctl as char(30))= e997.aux2

and e997.snd='CUST' and e997.doc='997'



Thanks,

Jack





--
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.