This is the DDS for the Display File
A REF(*LIBL/CUS)
A PRINT
A CA03(03)
*--------------------------------------------------------------
A R ENTSLS
*
* LET USER ENTER A SALESPERSON # SO PROGRAM CAN SHOW A LIST
* OF CUSTOMERS
A O 2 20'LIST CUSTOMERS FOR SLS#'
A CUSSLS R B 2 46EDTCDE(4)
*--------------------------------------------------------------
A R SFDATA SFL
A SEL 1A I 4 2
A CUSNUM R O 4 5
A CUSNAM R O 4 15
A CUSPHN R O 4 50
*------------------------------------------------------
A R SFCTL SFLCTL(SFDATA)
A SFLPAG(0005)
A SFLSIZ(0006)
A OVERLAY
A N50 SFLCLR
A 50 SFLDSP
A 50 SFLDSPCTL
* ------------------------------------------------------
* next 3 lines needed for 1 page at a time logic
* (also make SFLSIZ 1 bigger than SFLPAG - see above)
A 95 SFLEND(*MORE)
A ROLLUP(21)
A SFLRCD 4S 0H SFLRCDNBR(CURSOR)
* ------------------------------------------------------
A 2 4'SALESPERSON#'
A CUSSLS R O 2 17EDTCDE(4)
A 3 1'SEL'
A 3 5'CUST'
A 3 15'NAME'
A 3 50'PHONE#'
*--------------------------------------------------------------
A R CMDKEYS
A 24 40'F3=EXIT'
*--------------------------------------------------------------