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



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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.