WDWBORDER (Window Border) Keyword for Display Files--Example

Figure 291 shows how to specify the WDWBORDER keyword.

Figure 291. Specifying the WDWBORDER Keyword

|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A  01                                  WDWBORDER((*COLOR PNK) +
A                                      (*DSPATR BL))
A          R RECORD1                   WINDOW(6 15 9 30)
A N01                                  WDWBORDER((*COLOR GRN))
A  01                                  WDWBORDER((*COLOR RED))
A            FIELD1         5A  B  2  2
A            FIELD2        20A  B  8  5
A          R RECORD2                   WINDOW(8 20 9 30)
A                                      WDWBORDER((*COLOR YLW) +
A                                       (*DSPATR RI))
A            FIELD3         5A  B  2  2
A            FIELD4        20A  B  8  5
A            LINE           2S 0P
A            POS            2S 0P
A          R RECORD3                   WINDOW(&LINE &POS 9 30)
A                                      WDWBORDER((*CHAR +
A  02                                   '+-+||+-+'))
A            FIELD3         5A  B  2  2
A            FIELD4        20A  B  8  5
A            LINE           2S 0P
A            POS            3S 0P
A

If the window defined by RECORD1 is written to the display with indicator 01 set off, it has a green border constructed of colons for the vertical borders and periods for the horizontal borders. If indicator 01 is set on, the window has a blinking red border.

When the window defined by RECORD2 is written to the display, it has a yellow border displayed in reverse image constructed of the default border characters.

When the window defined by RECORD3 is written to the display, the following appears: