Re: A little SQL help please

Hi Kirk,

This looks to be a de-normalization task.

If I understand this task correctly, the SQL to generate/update the
de-normalized row should look like the UPDATE below:

create table QTEMP.TEST ( P, Q, R, S, T, U ) as (
values ( 'P', '', '', '', '', '' )
,( 'Q', '', '', '', '', '' )
,( 'R', '', '', '', '', '' )
,( 'S', '', '', '', '', '' )
,( 'T', '', '', '', '', '' )
,( 'U', '', '', '', '', '' )
) with data
;

update QTEMP.TEST T
set ( Q, R, S, T, U ) = (
select
max( case when rrn( S ) = 2 then S.P else '' end ) as Q
,max( case when rrn( S ) = 3 then S.P else '' end ) as R
,max( case when rrn( S ) = 4 then S.P else '' end ) as S
,max( case when rrn( S ) = 5 then S.P else '' end ) as T
,max( case when rrn( S ) = 6 then S.P else '' end ) as U
from QTEMP.TEST S
where rrn( S ) >= 2
group by 1 )
where rrn( T ) = 1
;

Mike

date: Tue, 25 Jul 2017 07:35:17 -0700

from: Kirk Goins <kirkgoins@xxxxxxxxx>
subject: Re: A little SQL help please

The file can be from 1 to 6 records. The file is created using the CPYF

cmd

getting all records where field A is equal to xxxxxxxxxx. The source data
is already sorted so the fields I am dealing with are in the desired

order.

Thanks

On Tue, Jul 25, 2017 at 5:51 AM, Vernon Hamberg <

vhamberg@xxxxxxxxxxxxxxx>

wrote:

Hi Kirk

First question = what makes a record the first record? Is this by RRN?

Or

by some index?

Next question = do you have RESUEDLT turned on for the file?

Cheers
Vern

On 7/24/2017 5:35 PM, Kirk Goins wrote:

If I knew RPG I know this would be simple...
A program is populating column P of a table. Columns Q, R, S, T and U

are

empty.
I want to use SQL to place the value of the 2nd record of Column P

into

Q

of the 1st record
Then Repeat putting the value 3rd record Column P into R etc.

Original File Desired Results I would even settle for
P Q R S T U P Q R S T U P Q R S T U
a a b c d e f a b c d e

f

b a b c

d e

f
c a b c

d

e f
d a b c

d e

f
e a b c

d

e f
f a b

c d

e
f

Thoughts and suggestions

Thanks

Kirk

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD