Re: Positioning cursor on a subfile record

If I understand what you are doing correctly, it will work the way you want it to work if you do not use SFLRCDNBR. Do a validation loop, setting on an SFLMSG indicator("33" in the example below) and then update the subfile record. Do that through the loop, then loop back to the EXFMT and all rows with an error will be RI and the cursor will be on the first error record.

Like this:
33 SFLMSG('Error Message' 33)
...
DATA 128 B 9 2CHECK(LC)
33 DSPATR(PC RI) COLOR(TRQ)

....
wErrorFound = *off;
// Check the lines of data for errors
for wNdx = 1 to SF1RECS;
chain wNdx SFL1;
If %trim(DATA) = 'Error'; // <-demo error condition.
wErrorFound = *on;
*in33 = *on;
update SFL1;
endif;
endfor;

Here is an example:

http://martinvt.com/Subfiles/Data_Editor/data_editor.html



On 3/20/2015 1:40 PM, Bill Howie wrote:

Michael,

I have tried your suggestion. After the user presses a command key on a
particular record, I set the value of the hidden field associated with
SFLRCDNBR in the DDS to what's in the hidden field associated with
SFLCSRRRN in the DDS (which contains the record number for the record the
user selected), and then an EXFMT of the subfile control record happens
(there is a WRITE of a different display format immediately before this
that displays command key text). Still positions to the first record of
the subfile. No DSPATR(PC) in play for this subfile.

Looking at the definition of SFLRCDNBR, it says that using this keyword
displays "the page of the subfile containing the record whose relative
record number is contained in this field". So am I interpreting it wrong
that it will actually position it to the SPECIFIC subfile record? Because
there are only 3 records in the entire subfile, so if you take this
definition literally, positioning the cursor to the first record is
technically displaying the page of the subfile that contains the record the
user selected. Maybe I've got the wrong keyword for positioning on a
specific record?

Bill

On Tue, Mar 17, 2015 at 11:54 AM, <MichaelQuigley@xxxxxxxxxx> wrote:

Bill,

Sorry I've been away from the list for a few days. What you're trying to
do should work. There are a couple things that've bit me or coworkers when
we've tried this.

1) You say you're "...moving the field value that goes along with
SFLCSRRRN to the SFLRCDNBR field and updating the subfile." Do you mean
you're updating the individual subfile record or rewriting the subfile
control record with the new SFLRCDNBR value? You need to rewrite (i.e.,
update) the control record. You do not need an input capable field. You do
not need to do a DSPATR(PC).
2) A prior DSPATR(PC) can mis-position the cursor. One common problem is
to leave the indicator for DSPATR(PC) turned on and update the individual
subfile record before updating the control record. That or defining PC on
another field in the subfile record without any indicator.

Those are the big ones. Have you got this working yet?

Michael Quigley
Computer Services
The Way International
www.TheWay.org

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 03/13/2015 09:59:09
AM:

----- Message from Bill Howie <blhowie66@xxxxxxxxx> on Fri, 13 Mar
2015 09:29:08 -0400 -----

To:

"RPG programming on the IBM i (AS/400 and iSeries)"

<rpg400-l@xxxxxxxxxxxx>

Subject:

Positioning cursor on a subfile record

Hello all,

I'm having the darndest time getting this to work. I have a subfile

that

has several fields. The first is an output field. Our program logic
dictates that if the cursor is on a particular line in the subfile (at

this

output field) and F1 is pressed, logic occurs to do things with that
specific record. That all works fine. In some cases the user hitting

F1

on a particular record is an error. I'm generating an error message

that

displays at the bottom of the screen and THAT all works fine. I'd like

to

position the cursor on the subfile row that the user hit F1 on in this
situation but no matter what I try it doesn't seem to work. I've got

the

subfile set up with the SFLRCDNBR(CURSOR) keyword and also the

SFLCSRRRN()

keyword and I'm moving the field value that goes along with SFLCSRRRN to
the SFLRCDNBR field and updating the subfile. STILL doesn't work. Does
it have to do with the fact that it's an output field I'm trying to
position it on? Because I've made it an input field and that's not
working either. Any suggestions? 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.