Re: [COBOL400-L] "windows" using separate display files

[cobol400-l@xxxxxxxxxxxx]

This display file DDS works for me.

    A                                      DSPSIZ(24 80 
*DS3                  -
    A                                             27 132 *DS4)
    A                                      INDARA
    A                                      PRINT
    A                                      CA03(03)
    A*                                     WDWBORDER((*COLOR GRN) +
    A*                                     (*DSPATR RI) +
    A*                                     (*CHAR '        '))
    A          R SCREEN1
    A  *DS3                                WINDOW(1 42 18 34)
    A  *DS4                                WINDOW(1 42 18 34)
    A                                      KEEP
    A                                      USRRSTDSP
    A                                 17 26'F3=Exit'
    A                                      DSPATR(HI)
    A                                      COLOR(BLU)
    A                                 17  1'1=Select'
    A                                      DSPATR(HI)
    A                                      COLOR(BLU)
    A          R SUBFL1                    SFL
    A            SFLRQS         1A  B  6  1VALUES(' ' '1')
    A                                      COLOR(TRQ)
    A            EMPLNMBR       4Y 0O  6  3EDTCDE(Z)
    A            EMPLNAME      25A  O  6  8
    A          R SUBFLCNTL1                SFLCTL(SUBFL1)
    A  *DS3                                SFLSIZ(0010)
    A  *DS4                                SFLSIZ(0010)
    A  *DS3                                SFLPAG(0010)
    A  *DS4                                SFLPAG(0010)
    A  *DS3                                WINDOW(SCREEN1)
    A  *DS4                                WINDOW(SCREEN1)
    A  99                                  SFLDSP
    A  99                                  SFLDSPCTL
    A N99                                  SFLCLR
    A                                      ROLLUP(50)
    A                                      ROLLDOWN(51)
    A                                      OVERLAY
    A                                  1 12' EMPLOYEES '
    A                                      DSPATR(RI)
    A                                      COLOR(PNK)
    A                                  4  1'Position to:'
    A            EMPLNAME      15A  B  4 15COLOR(TRQ)
    A                                  5  3'NMBR'
    A                                      DSPATR(HI)
    A                                  5  8'NAME'
    A                                      DSPATR(HI)
    A                                  1  1'TBLDFM20'
    A                                      COLOR(YLW)
    A                                  1 27DATE
    A                                      EDTCDE(Y)
    A                                      COLOR(YLW)
    A                                  2 27TIME
    A                                      COLOR(YLW)
    A          R DUMMY
    A                                      ASSUME
    A                                  2  1' '


Thanx, PLA



cobol400-l@xxxxxxxxxxxx wrote:

> Hi all,
>
> Is it possible to have a separate display file "window" overtop of another.
> I've built a separate PGM / DSPF (window) to be called from various
> applications.  I would like it to "overlay" the existing screen without
> clearing the entire screen.
>
> Can someone point me in the right direction
>
>
>
> Screen a                           date
>
>                                        Time
>
>      ++++++++++++++++
>
>      +    Screen b           +
>
>      ++++++++++++++++
>
>
>
> Where Screen b is a different PGM / DSPF.
>
>
>
> BUY. HOLD. AND PROSPER
>
> Daniel Mielke
>
> Business Systems Analyst
>
> AIC Limited
>
> 1-888-710-4242 x4614
>
> dmielke@xxxxxxx <mailto:dmielke@xxxxxxx> 
>
> www.aic.com <http://www.aic.com> 
>
>
>
>
> Man darf nur die Tasten zur richtigen Zeit treffen, 
> so spielt das Instrument von selber. 
> Johann Sebastian Bach (1685-1750)
>
>  
>
>
>
>  
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>