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.