A REF(CUST)
A*----------------------------------------------------------------
A R SCRN1
A CF03(03)
A 1 2USER
A 1 29'Customer Maintenance'
A DSPATR(HI)
A 1 69DATE
A EDTCDE(Y)
A 2 2'CUSD010'
A 2 69TIME
A 6 28'(A)dd'
A 7 28'(C)hange'
A 8 28'(D)elete'
A DSPACT 1A I 8 41DSPATR(HI)
A 10 29'Cust#'
A DSPCST 6Y 0I 10 41DSPATR(HI)
A DSPMSG 79A 22 1
A 90 DSPATR(RI)
A 23 7'F3=Exit'
A*----------------------------------------------------------------
A R SCRN2
A CF12(12)
A 1 2USER
A 1 29'Customer Maintenance'
A DSPATR(HI)
A 1 69DATE
A EDTCDE(Y)
A 2 2'CUSD010'
A 2 35'CHANGE'
A DSPATR(RI)
A 2 69TIME
A 3 29'Customer#'
A CSNBR R O 3 39EDTCDE(4)
A 6 6'Name'
A CSNAME R B 6 16DSPATR(HI)
A 7 6'Address'
A CSADR1 R B 7 16DSPATR(HI)
A 8 6'City'
A CSCTY R B 8 16DSPATR(HI)
A 9 6'State'
A CSSTE R B 9 16DSPATR(HI)
A 9 24'Zip'
A CSZIP R Y B 9 28DSPATR(HI)
A EDTWRD(' - ')
A DSPMSG 79A 22 1
A 90 DSPATR(RI)
A 23 18'F12=Cancel'