|
thanks. Looks like there is not a way to disable the fold/unfold. I guess my next option is to try what you suggested. Thank you for everybody's help :). -----Original Message----- From: Mackie, Roger L. (Precision Press) [mailto:RLMackie@xxxxxxxxxxxxx] Sent: Friday, September 26, 2003 8:44 AM To: 'RPG programming on the AS400 / iSeries' Subject: RE: fold/unfold FROM THE DDS MANUAL: If the SFLFOLD keyword is specified, the initial display of the records is folded. If the SFLDROP keyword is specified, the initial display of the records is automatically truncated. Then the user can press the command key to display the truncated or folded version, respectively, of the subfile record. If the page size equals the subfile size or the subfile fits on one display line, the specified keyword (SFLFOLD or SFLDROP) is ignored. Both SFLFOLD and SFLDROP can be used on the same subfile. Optional indicators can be used on these keywords. The optional indicators are used to determine which mode the subfiles are initially displayed in. If both keywords are optioned on or optioned off, then the subfile is initially displayed in folded mode. If the keyword is optioned off, the command key can still be used to display the truncated or folded version. Note especially: "The optional indicators are used to determine which mode the subfiles are initially displayed in." From my reading of that line, you cannot keep a user from seeing the information by conditioning the subfile keyword(s). You could have two subfile records, one with the keyword and one without it, and use the subfile that has the keywords if the user has authority, and the one without the keywords if they do not. HTH, Roger Mackie -----Original Message----- From: Lim Hock-Chai [mailto:Lim.Hock-Chai@xxxxxxxx] Sent: Friday, September 26, 2003 8:16 To: RPG programming on the AS400 / iSeries Subject: RE: fold/unfold what I try to do is to disable the CF11 under a certain condition. However, I turn on *in39 and it still working (fold/unfold). -----Original Message----- From: hrishikesh kotwal [mailto:hdkotwal@xxxxxxxxxxx] Sent: Thursday, September 25, 2003 10:11 PM To: rpg400-l@xxxxxxxxxxxx Subject: RE: fold/unfold Hi Lim: If *IN39 = *ON before EXFMT then your F11 will be rendered useless because your record level selections suggest that IF *IN10 = '0' AND *IN39 = *OFF THEN SFLDROP(CF11). You should set the *IN39 to OFF before EXFMT in order to make this work Regards, Hrishikesh Kotwal >From: "Lim Hock-Chai" <LIM.HOCK-CHAI@xxxxxxxx> >Reply-To: RPG programming on the AS400 / iSeries <RPG400-L@xxxxxxxxxxxx> >To: "RPG programming on the AS400 / iSeries" <RPG400-L@xxxxxxxxxxxx> >Subject: RE: fold/unfold >Date: Thu, 25 Sep 2003 16:28:59 -0500 > >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 > > > >-----Original Message----- >From: rick.baird@xxxxxxxxxxxxxxx [mailto:rick.baird@xxxxxxxxxxxxxxx] >Sent: Thursday, September 25, 2003 3:51 PM >To: RPG programming on the AS400 / iSeries >Subject: RE: fold/unfold > > > >Lim, send a snippet of your DDS code, and we'll give it a look > >-----Original Message----- > >I did both and doesn't seems to have effect on the command key. > >-----Original Message----- >From: Fisher, Don [mailto:Dfisher@xxxxxxxxxxxxxxxxx] >Sent: Thursday, September 25, 2003 2:43 PM >To: 'RPG programming on the AS400 / iSeries' >Subject: RE: fold/unfold > > >I've done no research on this, but I suggest you try using indicators on >the >SFLDROP and SFLFOLD keywords. Turning the indicator off should disable >F11. > > >If that fails, you could explicitly use an indicator on the CF11 keyword. > >Hope that helps. > > >_______________________________________________ >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. > ---------------------------------------------------------------------- Answer simple questions. Win a free honeymoon. Sail into the sunset! _______________________________________________ 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. _______________________________________________ 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.