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

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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