×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
On 24/03/2009, at 2:14 PM, RWMunday wrote:
How can I insure that I stay in one mode or the other until I
explicitly
select the command key to flip to the other mode? I'm still working
on that
save and restore the value of the SFLMOD field. Is there a better
way?
You don't need save and repopulate the SFLMOD field. All you need to
do is use the value of SFLMOD to condition either SFLDROP or SFLFOLD
as appropriate. For example:
DDS
A SFLMODE(&SFLMOD)
A 90 SFLDROP(CF11)
RPG III (Old code but it's all I had and I can't be bothered
converting it).
I '1' C $TRUNC
I '0' C $FOLD
In the *INZSR or equivalent:
* Initialise the subfile mode indicator
C MOVE $TRUNC SFLMOD
At the end of the build-subfile loop:
* If the subfile is currently in folded mode then ensure
* it stays that way
C MOVE SFLMOD *IN90
That's it. Subfile will be displayed in initial mode. SFLMOD will be
set as user toggles between modes. After page-up/down subfile will be
displayed in the last mode requested by the user. Easy.
Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists
http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------
midrange.com
