This is the DDS for the Display Window.
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*****************************************************************
A R ADDSCRN
A WINDOW(4 5 18 38)
A WDWBORDER((*COLOR GRN))
A WDWBORDER((*DSPATR RI))
A WDWBORDER((*CHAR ' '
A 2 9'ADD CUSTOMER INFORMATION'
A DSPATR(UL HI)
A 4 2'CUSTOMER #'
A CUSTNO R B 4 16DSPATR(PC UL)
A 5 2'FIRST NAME'
A CFNAME R B 5 16DSPATR(UL)
A 6 2'LAST NAME'
A CLNAME R B 6 16DSPATR(UL)
A 7 2'ST. ADDRESS'
A CSTRET R B 7 16DSPATR(UL)
A 8 2'CITY'
A CCITY R B 8 16DSPATR(UL)
A 9 2'STATE'
A CSTATE R B 9 16DSPATR(UL)
A 10 2'ZIP'
A CZIP R B 10 16DSPATR(UL)
A DMSG 36 O 15 2DSPATR(RI)
A 17 2'F3=EXIT F12=CANCEL'
*****************************************************************
ADD CUSTOMER INFORMATION
CUSTOMER # 999999-
FIRST NAME BBBBBBBBBB
LAST NAME BBBBBBBBBBBBBBB
ST. ADDRESS BBBBBBBBBBBBBBBBBBBB
CITY BBBBBBBBBBBBBBB
STATE BB
ZIP 999999999-
PHONE # 9999999999-
ORDER DATE 999999-
BALANCE DUE 999999-
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
F3=EXIT F12=CANCEL