RE: Using the mouse on Green Screen

Ok there are the relevant bits of code I used in the display file;

     A*%%EC                                                             
     A                                      DSPSIZ(24 80 *DS3)          
     A                                      REF(*LIBL/AGCPFRF)          
     A                                      PRINT                       
     A                                      CA03                        
     A                                      MOUBTN(*ULR E00)            
     A*                                                                 
     A          R AGIS479A                  TEXT('Available AWB''s')    
     A                                      SFL                         
     A            CTLFLD         1Y 0H      SFLCHCCTL                   
     A            PF01           1A  P                                  
     A            AWB1#A        13A  O 16  4DSPATR(&PF01)               
     A            AGNTHD    R        H      REFFLD(AGIPAWR/AGNTAW *LIBL 
     A*                                                                 
     A          R AGIC479A                  TEXT('Available AWB''s')    
     A                                      SFLCTL(AGIS479A)            
     A  *DS3                                SFLLIN(4)                   
     A                                      SFLSIZ(2000)               
     A                                      SFLPAG(24)                
     A                                      CF05(05 'Refresh')        
     A                                      CF07(07 'Print receipt')  
     A                                      RTNCSRLOC(&REC &FLD)      
     A                                      SFLCSRRRN(&RELREC)        
     A                                      CHCSLT((*COLOR BLU))      
     A                                      OVERLAY                   
     A  60                                  SFLDSP                    
     A  61                                  SFLDSPCTL                 
     A  64                                  SFLCLR                    
     A  65                                  SFLEND(*SCRBAR *MORE)     
     A                                      SFLMLTCHC                 
 
After selecting using the mouse, or cursor arrows and the space bar, you press 
Enter and then just process the subfile as normal checking for a 1(numeric) in 
CTLFLD. 
The keywords SFLMLTCHC, CHCSLT and SFLCHCCTL are ones you may want to read up 
about, I didn't use the event E00 or the cursor location stuff.

Big drawback, though not in my case as it is just what I need, is that the 
subfile can only contain one field for this to function.

Thanks go to Booth for pointing me in the right direction.

Steve