|
Lim, I've tried this on our AS400 and i get the same results as you. Putting an indicator on SFLDROP(CF11) or SFLFOLD(CF11) has no affect, F11 always folds/unfolds the subfile. I can switch between SFLDROP and SFLFOLD but having neither does not seem to be option. I don't understand this behaviour either ! You could have neither SFLDROP nor SFLFOLD in your DDS and replicate the behaviour in your program but this isn't exactly simple. Phil > -----Original Message----- > From: Lim Hock-Chai [mailto:Lim.Hock-Chai@xxxxxxxx] > Sent: Friday, September 26, 2003 1:13 PM > To: RPG programming on the AS400 / iSeries > Subject: 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. > > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.