RE: [EXTERNAL] Re: sql equivalent to chain and readpe -- RPG400-L

You may want to consider using a CTE (Common Table Expression) or simply create another SQL view over the same file.

Then you could select the repair and JOIN to the CTE or the SQL view to retrieve the prior transaction based on transaction ID (I assume)

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Smith, Mike
Sent: Tuesday, October 29, 2019 8:59 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Re: sql equivalent to chain and readpe

Yeah, The readpe is only performed if there was a REPAIR found.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Craig Richards
Sent: Tuesday, October 29, 2019 8:57 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] Re: sql equivalent to chain and readpe

Well, that might be too simple actually, it doesn't prove you had a 'REPAIR'

On Tue, 29 Oct 2019 at 12:55, Craig Richards <craig@xxxxxxxxxxxxxxxx> wrote:

What about

select status from file
where ID = 21489 and Type < 'REPAIR'
order by ID, Type, Date
fetch first row only

On Tue, 29 Oct 2019 at 12:49, Smith, Mike
<Mike_Smith@xxxxxxxxxxxxxxxx>
wrote:

I am converting a rpg program that uses a chain, followed by a readpe
to retrieve a value.

I am converting this program to pull the same data from a sql server
table using Scott Klements jdbc methods.
I am looking at using the sql lag function, but that does not seem to
be what I need.

Data looks like the following

ID TYPE Date Status
21489 RECHECK 20180928 2
21489 REGRADE 20180418 2
21489 REPAIR 20190102 0

Key in file is ID,TYPE,Date

Chain looks for the REPAIR, then does a read prior equal on the ID to
get the previous status

Is there a way I can do the same thing using sql ?

Thanks

MIke

NOTICE: This message, including any attachment, is intended as a
confidential and privileged communication. If you have received this
message in error, or are not the named recipient(s), please
immediately notify the sender and delete this message.
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post
a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2flists.midrange.co
m%2fmailman%2flistinfo%2frpg400-l&c=E,1,q4BDjAAgbGUNtavdGxMdLDlDLm1VM
Or0wflnyvgn_UGuUmaX8jMkXs0F35F5MAPgOPgldgwmNQhHVdYj7OnoouCXSxpSbjuKDK
9Ja38CMXP6VgovRVAvCQ,,&typo=1 or email:
RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2farchive.midrange.
com%2frpg400-l.&c=E,1,PgYkTGUg5ezGwZZ3h3mg3SIMayDXPMapIzLMs6RL_zQyXl-
OiNHE9E2pNkMf5P44GLrEGUqYKCrgeuKhbuY76LLqTa1L7S6VkpRymD87ewu7Q214xauv
6k-VyQ,,&typo=1

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2fmidrange.com&c=E,
1,LYq6Ps7xGVWezxBK6CiHnjM8CoIvlTtYnFnblyRTffJxsh9J9uUWgbICJ37SdwjW2aX
o_zYPGXyb8XqhkXcb9fWTwTlxgioBJnjNlIwAFe-6miOADpBPIrd1&typo=1 by
shopping at amazon.com with our affiliate
link:
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2famazon.midrange.c
om&c=E,1,2mQR4QO4Jp-GGlAl2TbjbMW9x1JrnLaRTm-e8lCiYKe1d0K1l80k8UQan81R
3008VsVYqCaFptH2u4NkW2sCxhTDg0miOgKNGLOceL86GkOWLxTUsOWP6nw,&typo=1

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://linkprotect.cudasvc.com/url?a=https%3a%2f%2flists.midrange.com%2fmailman%2flistinfo%2frpg400-l&c=E,1,ikMZG8QGhaY9-m_jphfIW3clO4vycFTAIV-87w_86gO0rH7LrhJcTR-i3DXFeS9eUfbv6HQ7XHQ4mZpSWIauF7Jx-OifLu5cMDhqPhT-3nJnqhDrIackTvIGsg,,&typo=1
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://linkprotect.cudasvc.com/url?a=https%3a%2f%2farchive.midrange.com%2frpg400-l.&c=E,1,gv_m9wAojxkca7GNQ84jNnNpx21-9-dXDzOJPYaCb5fUhi1VNjsqDQPfhu8JT6lbJlPfBcIRCYJyQmvaNbB7fZdretU3IjTr7MTPCBgyWWwg45I,&typo=1

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support https://linkprotect.cudasvc.com/url?a=https%3a%2f%2fmidrange.com&c=E,1,pmSTlhUUJw_NOx2oDUV4bKCF-2m3dmLjs5K8xEP_Lse8l41IYrY07phPslqf2jjiEqS12Eep5Mf02CRStmnzRtfN53Bbt7W4JT1ykUvRcGxmEicw2NmfjgD9&typo=1 by shopping at amazon.com with our affiliate link: https://linkprotect.cudasvc.com/url?a=https%3a%2f%2famazon.midrange.com&c=E,1,2j78WAeAWutx6mBfYie4_Q6ZdxAGPJJQPxOx6EXDJd0qYUdldNRjAOqn7y8B03Pwga9SVAA3URWSPq5hhLlR1cjtXn7gkJTxnxnF3FM_aGpJrw,,&typo=1
NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.