This is the DDS for the display file to select a customer from a list.
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 SLSPER 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(0015) A SFLSIZ(0045) A OVERLAY A N50 SFLCLR A 50 SFLDSP A 50 SFLDSPCTL A 50 SFLEND(*MORE) A 2 4'Salesperson#' A SLSPER 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' *----------------------------------------------------------------