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

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

For completeness and just to elaborate, what I think you mean 
(correctly) is that output/input from the Display is done via the 
Control Format. So the statements should be:

WRITE SFLCTL8
EXFMT SFLCTL7
READ  SFLCTL7

The Subfile (SFL) formats describe the layout of the (temporary) data so use READ/WRITE operations as if handling a database file.

Brian.

On 12/08/2022 15:07, Frederik Vanderhaeghe via RPG400-L wrote:
> 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