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



Sorry my misdtake shoudl be:

WRITE SFLCTL8
EXFMT SFLCTL7
READ SFLCTL8


Op 12-8-2022 om 16:07 schreef Frederik Vanderhaeghe via RPG400-L:
Hello,

EXFMT on a subfile is not possible...

Frederik Vanderhaeghe


-----Oorspronkelijk bericht-----
Van: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] Namens Carel via RPG400-L
Verzonden: vrijdag 12 augustus 2022 15:28
Aan: rpg400-l@xxxxxxxxxxxxxxxxxx
CC: Carel
Onderwerp: Re: Is it possible to have a dspf window with 2 subfiles?

Been a while:

First write to the 2 SFLs then

WRITE Scherm8
EXFMT Scherm7
READ Scherm8

And put OVERLAY in SFLCTL7 too

Op 12-8-2022 om 14:53 schreef Frederik Vanderhaeghe via RPG400-L:
Hello,

In our programming we are always using windows...
Now I would like to have a window with 2 subfiles, is that possible?

What I have for the moment:
A R SCHERM7 SFL
A S7VRWP R O 6 1REFFLD($$VRWP)
A COLOR(WHT)
A S7VRWV R O +2REFFLD($$VRWV)
A COLOR(WHT)
A S7VOM1 R O +2REFFLD($$VOM1)
A COLOR(WHT)
A S7VOM2 R O +2REFFLD($$VOM2)
A COLOR(WHT)
A S7VRWN R H REFFLD($$VRWN)
A S7OFNR R H REFFLD($$OFNR)
A R SFLCTL7 SFLCTL(SCHERM7)
A RTNCSRLOC(&S7RECI &S7FLDI
A &S7POSI)
A 49 CSRLOC(S7LINU S7POSU)
A N70 SFLDSPCTL
A 71 SFLDSP
A 70 SFLCLR
A CF03
A SFLSIZ(200)
A SFLPAG(5)
A SFLCSRRRN(&RELRCD)
A 74 SFLEND(*MORE)
A N74 ROLLUP(72)
A WINDOW(1 5 25 119)
A WDWBORDER((*COLOR WHT))
A 30 WDWTITLE((*TEXT ' Goedkeuren mits..-
A . ') (*COLOR WHT))
A CHGINPDFT
A S7RRN 3 0H SFLRCDNBR
A RELRCD 5S 0H
A 1 1'Algemene vrijstelling:'
A S7ALVR R B +1REFFLD($$VRYS)
A COLOR(WHT)
A EDTCDE(2)
A 3 1'Extra vrijstelling voor waarborg:'
A S7WRBG R B +1REFFLD($$WRBG)
A COLOR(WHT)
A S7WRBV R 44 +1REFFLD($$WRBV)
A COLOR(BLU)
A +3'Vrijstelling:'
A S7VRWB R B +1REFFLD($$VRYS)
A COLOR(WHT)
A EDTCDE(2)
A 4 1'F1=Alle voorwerpen selecteren'
A COLOR(BLU)
A 5 1'Voorwerp Omschri-
A jving 1 -
A Omschrijving 2 -
A '
A DSPATR(RI)
A COLOR(GRN)
A S7LINU 3S 0H
A S7POSU 3S 0H
A S7LINI 3S 0H
A S7POSI 4S 0H
A S7FLDI 10A H
A S7RECI 10A H
A S7VRWN 15S 0H
A R SCHERM8 SFL
A S8VRWP R O 16 1REFFLD($$VRWP)
A COLOR(WHT)
A S8VRWV R O +2REFFLD($$VRWV)
A COLOR(WHT)
A S8VOM1 R O +2REFFLD($$VOM1)
A COLOR(WHT)
A S8VOM2 R O +2REFFLD($$VOM2)
A COLOR(WHT)
A S8VRWN R H REFFLD($$VRWN)
A S8OFNR R H REFFLD($$OFNR)
A R SFLCTL8 SFLCTL(SCHERM8)
A RTNCSRLOC(&S8RECI &S8FLDI
A &S8POSI)
A 49 CSRLOC(S8LINU S8POSU)
A N75 SFLDSPCTL
A 76 SFLDSP
A 75 SFLCLR
A SFLSIZ(200)
A SFLPAG(5)
A SFLCSRRRN(&RELRCD8)
A 77 SFLEND(*MORE)
A N77 ROLLUP(72)
A OVERLAY
A WINDOW(SFLCTL7)
A CHGINPDFT
A S8RRN 3 0H SFLRCDNBR
A RELRCD8 5S 0H
A 15 1'Voorwerp Omschri-
A jving 1 -
A Omschrijving 2 -
A % '
A DSPATR(RI)
A COLOR(GRN)
A S8LINU 3S 0H
A S8POSU 3S 0H
A S8LINI 3S 0H
A S8POSI 4S 0H
A S8FLDI 10A H
A S8RECI 10A H
A S8VRWN 15S 0H
A R DUMMY
A ASSUME
A 2 2' '


It shows SFLCTL7 with subfile SCHERM7, but it doesn't show SFLTCL8 with SCHERM8...
I'm not getting any errors anymore when executing the program.
I first write SFLCTL7, then SCHERM7, then SFLCTL8, then SCHERM8 and then exfmt SFLCTL7.

Thanks in advance for advice!

Frederik Vanderhaeghe



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.