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



>Thanks Mike.  I have tried that with mixed results.  Because of the SFLDROP
>keyword, the screen always displays in drop mode, even though I try to use
>condition indicators to force it not to.  Also, although I'm using
>SFLRCDNBR, when I do just the write, it always shows the first page of the
>subfile.  But, the message did go away!

Richard
        I just modded a pgm I recently wrote to try this out.

I appear to get different results 2 u.
Although I don't use a window, I just overlay a confirm field instead.
The pgm appears to keep the correct page No and keeps SFLdrop status.

here are the key elements to the dspf & rpg pgm:

A          R DAP100C1                  SFLCTL(DAP100F1)          
A                                      SFLSIZ(0008)              
A                                      SFLPAG(0007)              
A  21                                  SFLDROP(CA07)             
A                                      SFLMODE(&C1MODE)          
A            C1MODE         1A  H                               
A            C1PAGE         4S 0H      SFLRCDNBR(CURSOR)        

 *init 
C                   Move      *on           C1mode    
C                   Move      C1mode        *in21     
 * load sf etc
C                   ExFmt     DAP100C1   
C                   Move      C1mode        *in21    
 * save page no (from INFds for display - pos 378-379B0)
C                   If        £isflr > *zero         
C                   Z-Add     £isflr        C1page   
C                   EndIf                            
 * validate subfile entries & now confirm OK
C                   Write     DAP100C1                  
 * overlay confirm window
C                   Exfmt     DAP100W1                  

Not sure if this is of any help...
Apologies if I have missed something out.

Mike
--




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.