Sub-file programming

This is the DDS for the display file to list the customers.



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            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  4'Customer#'               
A                                  3 15'Name'                    
A                                  3 50'Phone#'                  
 *----------------------------------------------------------------
A          R CMDKEYS                                             
A                                 24 40'F3=Exit'                 
 *----------------------------------------------------------------


Back to Source Code Page   |   Basic 400 Skills   |   Main Page