Re: Is it possible to have a dspf window with 2 subfiles?

The esteemed Booth Martin had some sample code that demo'd how to use two
subfiles.

After his passing, his work was saved (with permission) on midrange.com so
it could continue to benefit the community.
https://boothmartin.midrange.com/Subfiles/Two_Subfiles/two_subfiles.html

HTH,
Charles Wilt



On Fri, Aug 12, 2022 at 6:58 AM Frederik Vanderhaeghe via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

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

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com