Re: Resequence data in file based on screen seq -- RPG400-L

I am prefilling the array with high values before loading, then sorting using SORTA.
When doing a lookup, I use %Lookup with an ending index so I do not have to search the entire array.

Thanks,

Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3

----- Original Message ----
From: Mark Walter <MWalter@xxxxxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, December 7, 2007 11:01:54 AM
Subject: RE: Resequence data in file based on screen seq

He said it was V5R1. I don't think %SUBARR was available then.

Mark Walter
Paragon Consulting Services, Inc.
IBM Certified System i Specialist
717-764-7909 Ext. 26
mwalter@xxxxxxxxxxxxxxx
www.paragon-csi.com

"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/07/2007 10:59 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>

To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Resequence data in file based on screen seq

Oops. I guess it will need to be sorted. (Note: Syntax is probably
wrong. But you got the idea.)

//sort the seq# using array
For sfRRN = 1 to ??
chain sfRRN mySubFile;
myAry(sfRRN).Seq# = Seq#;
myAry(sfRRN).rrn = sfRRN;
Endfor;
Sorta %SUBARR(myAry : 1 :sfRRN-1);

// use sorted array to update seq#
For sfRRN = 1 to ??
Chain myAry(sfRRN).rrn mySubFile;
if %found;
Chain (orgKey1 :orgKey2...) myFile;
if %found;
Seq# = sfRRN * 10;
update myFile;
endif;
endif;
Endfor;

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Friday, December 07, 2007 9:39 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Resequence data in file based on screen seq

I'm not too sure if this method would work for example, on the subfile
display you have

seq# key comment
10 A This is the first comment
20 A This is the second comment

and you want to change the order
10 A This is the first comment
05 A This is the second comment that
goes before the first

your method would still place them back in the same order

Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 12/07/2007 10:29:33 AM:

If seq# is not part of the unique key, you could do something like
below
(Note: Syntax might be wrong.)

For sfRRN = 1 to ??
Chain sfRRN mySubFile;
if %found;
Chain (orgKey1 :orgKey2...) myFile;
if %found;
Seq# = sfRRN * 10;
update myFile;
endif;
endif;
Endfor;

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Friday, December 07, 2007 9:05 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Resequence data in file based on screen seq

The reason I do not just update is that after the user enters all
their data, when writting back to the file, I need to sequence the
data in increments of 10 so that they can move things around without
having to change all records.

Thanks,

Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical
Solutions V5R2 IBM Certified Specialist- e(logo) server i5Series
Technical Solutions Designer V5R3 IBM Certified Specialist-
e(logo)server i5Series Technical Solutions Implementer V5R3

----- Original Message ----
From: Joep Beckeringh <joep@xxxxxxxxxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, December 7, 2007 9:02:22 AM
Subject: Re: Resequence data in file based on screen seq

Jeff,

Why do you delete all the records of the group? Why don't you just
update?

What I do in situations like is to store the original sequence # as a
hidden field in the subfile. With the original and new sequence # you
can determine what to do:
- original = 0 and new > 0: add
- original > 0 and new = 0: delete
- original <> new: update

The tricky bit is checking for duplicates. You need to check each
new/changed sequence # with the file and also check for duplicates
within the subfile.

Joep Beckeringh

Jeff Young schreef:

Let me clarify what I am attempting to do.
I have a file with the key: Company, Location, Item, Seq#,
Substitute

Item.

The file has additional fields.
The user sees all substitute items for the Company, Location, Item
and

can change the Sequence # and other data shown.

Since the user can change the sequence #, I need to process all

records for the group.

When I do the update/add, I need to resequence the data on file
based

on the seq# the user keyed.

This is similar to what is done in SEU when you insert or delete

lines.

What I am doing now is storing the screen seq# & substitute item in
an

array, sorting the array and then deleting all records for the group.

When I output the records from the subfile, I assign a sequence #

based on the location of the seq#/item in the array.

I was hoping for a less messy method to get the same result.

Thanks,

Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical
Solutions V5R2 IBM Certified Specialist- e(logo) server i5Series
Technical Solutions Designer V5R3 IBM Certified Specialist-
e(logo)server i5Series Technical Solutions Implementer V5R3

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

______________________________________________________________________
__
____________
Looking for last minute shopping deals?
Find them fast with Yahoo! Search.
http://tools.search.yahoo.com/newsearch/category.php?category=shopping
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.