Re: Subfile question - Position To functionality

On Dec 14, 2016, at 11:36 AM, Bill Howie <blhowie66@xxxxxxxxx> wrote:

Jon,

Upon further review I think I really only need the one "LOC" field in my
array. So it becomes a simple 1-dimension array. So right now my lookup
statement looks just like yours. But if I key in "OV" in my position-to
screen field, I want it to show all locations from there on, like ones with
"OVER-1A", "OVER-2A", etc. However, my LOOKUPGT statement returns a zero
for N. Does the search argument have to exactly match something in the
array? In other words, can it be a partial value and still work?

Bill

On Wed, Dec 14, 2016 at 11:23 AM, Jon Paris <jon.paris@xxxxxxxxxxxxxx>
wrote:

Only the "plain vanilla" %Lookup is currently supported for DS arrays I
believe.

This should work though:

d ds
d locarray dim(1600)
d arch 2 overlay(locarray)
d loc 8 overlay(locarray: *Next)

Then the lookup becomes:

n = %lookupgt(scpos: loc);

Not tested but should be about right.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Dec 14, 2016, at 10:54 AM, Bill Howie <blhowie66@xxxxxxxxx> wrote:

Thanks for the replies......let me throw another wrinkle in this if I

may.

Instead of a file in this case, I have a qualified array that holds my
locations. Like this:

dlocarray ds dim(1600) qualified
d brch 2
d loc 8

"BRCH" is always constant and the "LOC" field is the location. So
basically I have an array that holds all the locations. My thinking was

I

could search the array with the %LOOKUPGT BIF and it would find the next
one greater than what the user positions to. But the compiler doesn't

like

the following:

eval n = %lookupgt(scpos:locarray(*).loc)

"SCPOS" would be the screen field that the user keys in to position the
subfile. But I can't get the syntax right for how I can search the
locations that are in the array. I get the following compiler errors:

*RNF0571 20 1 The second parameter for %LOOKUPxx is not valid.

*RNF5343 30 1 Array has too many omitted indexes; specification is
ignored.

Thoughts?

Bill

On Wed, Dec 14, 2016 at 10:35 AM, Alan Shore <ashore@xxxxxxxx> wrote:

Hi Bill
We always put a position to field - above the subfile data. So that when
someone enters a value in this field, presses Enter - or a particular
function key - the file is setll with that value (other than spaces) and
then builds the subfile from that point on
NOTE - we ALWAYS build page at a time subfiles
A load ll sub file requires a different piece of logic

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill


-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff
Young
Sent: Wednesday, December 14, 2016 10:28 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <
rpg400-l@xxxxxxxxxxxx>
Subject: Re: Subfile question - Position To functionality

Bill,
You would need to get the "bin" from the subfile record using a CHAIN to
the subfile record that the cursor is positioned to, then use that

value to

read you data file and reload the subfile.

Jeff Young
Sr. Programmer Analyst

On Wed, Dec 14, 2016 at 10:18 AM, Bill Howie <blhowie66@xxxxxxxxx>

wrote:

Hello all,

Question for the group. I have the need to add "position to"
functionality to a subfile program. In this scenario, my subfile has

one field which is

a bin location in a warehouse. The one field could look something

like

"OVER-1A". I want the user to be able to key in just the letter "O"
in a field on the subfile screen and have the subfile display starting
with the records that begin with "O" and going from there. Is it just
as simple as doing a SETLL with the "O" as the key and it will read
the records from there on or is there more to it than that? Any info

is

as always

appreciated. Thanks!

Bill
--
This is the RPG programming on the IBM i (AS/400 and 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.

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

--
This is the RPG programming on the IBM i (AS/400 and 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.

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

--
This is the RPG programming on the IBM i (AS/400 and 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.

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

--
This is the RPG programming on the IBM i (AS/400 and 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.

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

--
This is the RPG programming on the IBM i (AS/400 and 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.

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

--
This is the RPG programming on the IBM i (AS/400 and 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.

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