Re: DSPATR(PC)

["Booth Martin" <Booth@xxxxxxxxxxxx>]

In a similar situation I used the column headings as the sort choices.  When
a user mouse-clicks a column heading, or chooses the F-key assigned to the
column, then the column heading changes color and the subfile re-loads in
the order for that column.

I found this was intuitive to the users and easy to program.  I posted the
program on my website.  The program is to show the scroll bar (very useful I
believe), but it also shows how I did the column headings.

http://www.martinvt.com/Code_Samples/Scroll_Bar/scroll_bar.html

(sometimes my coding isn't as clear as I think it is.  If you have questions
plesae ask, OK?


---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------
-------Original Message-------
From: rpg400-l@midrange.com
Date: Monday, November 12, 2001 11:51:43 AM
To: rpg400-l@midrange.com
Subject: DSPATR(PC)
Hello all,
I have a display file that has a subfile. There is an input capable field
on the control record to change the sort order. The field, by default, is
protected (DSPATR(PR)). I have a command key that enables the field. When
the key is pressed, an indicator is set on to Underline the field and
position the cursor on the field (DSPATR(UL PC)). Then there is an
CHECK(ER) on the input capable field that when the value changes, the sort
order is changed. My problem is that the position cursor doesn't seem to be
in effect. When I press the command key, the field becomes enabled but the
cursor stays in the first input capable field in the subfile. The same is
true when the field in the control record is changed. The field is
automatically disabled again, but the cursor stays there instead of being
displayed in the first input capable field in the subfile. Pretty confusing
huh? Any ideas would be appreciated.
Thanks,
Mark
Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.