Re: Can't get SFLFOLD/SFLDROP to "stick"

[Scott Mildenberger <scottmildenberger@xxxxxxxxx>]

Here's how I do it:

In the DDS
     A  59                                  SFLDROP(CF04)
     A                                      SFLMODE(&SFLMODE)
(no other reference to CF04 in the DDS)

In the RPG
      //  Display file indicator data structure
     d Wsindds         ds
     d   SflNonDsply          50     50n
     d   SflEnd               51     51n
     d   SflNxtChg            55     55n
     d   SflBadOption         56     56n
     d   SflDrop              59     59n
.....  at initialization
       SflDrop = *on;
.....  after EXFMT
       eval SflDrop = SflMode;
.....  to determine how many records on a page(page at a time
subfile)
         if SflDrop;
           SflPage = SFLPAG;
         else;
           SflPage = SFLPAG / 2;
         endif;

Scott Mildenberger
 




--- G Armour <garmour400r@xxxxxxxxx> wrote:
> I'm doing my first subfile with SFLFOLD/SFLDROP since probably
> ten years ago.  I
> remember the SFLFOLD/SFLDROP a real PITA back then, and it
> hasn't gotten any better
> now.
> 
> The problem that I can't seem to easily get past is that I
> can't get the FOLD or the
> DROP to "stick".  I've got a 2-line subfile record.  The
> default is to show just the
> first line ("dropped").  The user presses F7 to switch between
> DROP and FOLD.  As
> long as I'm scrolling within the subfile, I'm fine.  But as
> soon as I hit a function
> key, or scroll past the top or bottom of the subfile (i.e.,
> control returns to
> program and program EXFMTs the control record), it reverts
> back to DROP.



__________________________________
Do you Yahoo!?
Yahoo! Mail SpamGuard - Read only the mail you want.
http://antispam.yahoo.com/tools