RE: fold/unfold

F11 Still Active?
User still can use F11 to fold/unfold when *in39 is *on.

F11 on File Level Key Word?  
F11 is not on the file level key word.  SFLDROP(CF11) and SFLFOLD (CF11) are 
the only two places CF11 exist in the DDS.
 

-----Original Message-----
From: rick.baird@xxxxxxxxxxxxxxx [mailto:rick.baird@xxxxxxxxxxxxxxx]
Sent: Thursday, September 25, 2003 5:10 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: fold/unfold



Lim,

when you say F11 is still active, do you mean that F11still folds and/or
drops your subfile?  or just that you can press it and it doesn't lock your
keyboard?

also, what controls whether *in10 is on or not?

I'm not sure why F11 is still allowed, (is it listed as a file level
keyword in the source before your first record format?).  if it allows you
to press it, but doesn't fold or drop the subfile, what happens then?  does
control return to your program (just after the EXFMT)?

Rick
-------------original message--------------

Here is part of the DDS looks like

A          R SFLCTL                    SFLCTL(SFL)
A                                      SFLSIZ(0006)
A                                      SFLPAG(0005)
A                                      CF03
A                                      CF05
A                                      CF10
A                                      OVERLAY
A                                      SFLMODE(&MODE)
A N32                                  SFLDSP
A N31                                  SFLDSPCTL
A  31                                  SFLCLR
A  90                                  SFLEND(*MORE)
A N10N39                               SFLDROP(CF11)
A  10N39                               SFLFOLD(CF11)


In the RPG program, *in39 is set to *on before in does EXFMT on the SFLCTL




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