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

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.