|
>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 mailing list archive is Copyright 1997-2025 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.