in der dds!

A WINDOW(&##WL01 &##WP01 8 50)
A WDWBORDER((*COLOR BLU) (*DSPATR RI)-
A (*CHAR ' '))
A WDWTITLE((*TEXT &$1HDRW) (*COLOR BL-
A U) (*DSPATR RI) *CENTER)


und
A ##WL01 2S 0P
A ##WP01 3S 0P
A $1HDRW 47A P