can any one help me for popup windows in as400

[Padmanabhan]

Hello,
I need a help for doing a popup window in AS400. I tried
reading the IBM soft copy books but unable to proceed further.

with high and best regards
padmanabhan
padman...@in.bosch.com

[Naomi Bell]

R TESTWIN
WINDOW(10 40 7 20)
WDWBORDER((*COLOR BLU) (*CHAR '++++-
++++'))
WDWTITLE((*TEXT 'This is a Window')
(*COLOR WHT) (*DSPATR RI))
#FLD 10A B 3 7DSPATR(UL)
3 2'Field:'
DSPATR(HI)
6 2'F12 - Cancel'

The WINDOW keyword in DSPF creates a funky popup window. 10 40 is the
location on the screen; you could use *DFT to have the window move relative
to the cursor. 7 20 is the height and width. WDWBORDER is the window
border with colour and character. WDWTITLE is, obviously, the title, with
color and dspatr. The text has to fit within the window, but otherwise it
acts like a normal record. When you want the window, just EXFMT it.

You can even put subfiles in windows, using WINDOW(WindowName) in the
SFLCTL.

Padmanabhan <Padman...@in.bosch.com> wrote in article
<3871F7E2...@in.bosch.com>...

[Rich]

If your window is the only record format in your DDS file (i.e. like a pop-up
prompt or "help" window) that is CALLed from another program, then you need to
put a dummy record format in the DDS and specify the ASSUME keyword. This
dummy record format does not need to be written, but must be in the DDS,
otherwise when your window 'pops' the rest of the screen around the window will
blank.

Rich