RE: SFLDROP and SFLFOLD: Done!

Thank you. It would have been very helpful to see the RPG side of the
use of SFLMODE. Your example plus others in Google helped a lot! 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Kesterson, Randy
Sent: Monday, December 04, 2006 11:21 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: SFLDROP and SFLFOLD

I'm not sure how many ways you can do this, but here's how I do it.

I put both the Fold and the Drop keywords in my DDS with indicators.  I
give the Drop N21 and the Fold 21.  

I put SFLMODE(&MODE) and define &MODE as 1 character hidden in my
Subfile Control portion of the DDS.

In the RPG, just before the EXFMT, I compare MODE.  If it is *OFF I turn
*IN21 *ON.  If it's *ON, I turn *IN21 *OFF.  

The screen will then stay as it was when they hit enter.

________________________________________________________________________
______________________
Randy Kesterson, Information Services
Market Transport Services  - a UTi Worldwide Company| 110 N Marine Drive
| Portland, OR 97217 | USA
rpkesterson@xxxxxxxxxxxxxxxxxxx | D +1 503.978.4353 | O +1 503.283.2405
x353 | F +1 503.978.4392 
 
 
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Turnidge, Dave
Sent: Monday, December 04, 2006 8:51 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: SFLDROP and SFLFOLD

OK. I have investigated the SFLMODE keyword. I understand that it will
tell me the mode WHEN I return from data entry. It seems that
SFLDROP/FOLD just "works" without any return to the program. The example
shows both SFLDROP and SFLFOLD controlled by the same CF key (03). Each
is also associated with controlling indicators 10/11.

I am not seeing how I can set 10/11 if I don't get control after the CF
key is pressed. It looks like I need to read the user's mind to set the
indicator before they actually press the CF key....

Clarification would be greatly appreciated.

Thank you,

Dave

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
Sent: Friday, December 01, 2006 3:12 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: SFLDROP and SFLFOLD


On 02/12/2006, at 8:00 AM, Turnidge, Dave wrote:

I'm still trying to get my "Embedded SQL; RPGLE; Maintenance Program" 
to
do what I want. Current hang-up is to get the SFLDROP to persist even 
though we do a page down that refreshes the subfile. It comes up 
folded.
When I enter F11, it drops. If I scroll down ONCE, the drop stays. On 
the next scroll, it folds again. I want it to stay dropped until I 
enter
F11 again, and then fold.

Investigate the SFLMODE keyword. Use the value of the associated field
to condition SFLDROP or SFLFOLD when the subfile is displayed. This will
maintain the consistent behaviour you desire.

Regards,
Simon Coulter.
--------------------------------------------------------------------
    FlyByNight Software         AS/400 Technical Specialists

    http://www.flybynight.com.au/
    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
    Fax:   +61 3 9419 0175                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------


--
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.