Sub-file Select programming

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'                 
   *----------------------------------------------------------------



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