.HOFF                                                                         
! These are examles of how to use VIEW$[7] and VIEW$[16]                      
! to do CONNECT VIEW commands                                                 
                                                                              
MAINLINE                                                                      
     DIM VIEW$[17]                                                            
     DO USING-FUNCTION                                                        
     CONNECT VIEW "UTCUST"                                                    
                                                                              
SELECT-WHEN-FUNCTION                                                          
     LET VIEW$[7] = "WHEN #UTCUST.CUST-NAME = "+QUO+                          
               "Team Sports                   " +QUO                          
SORT-FUNCTION                                                                 
     LET VIEW$[7] = "SORT 1"                                                  
USING-FUNCTION                                                                
     LET VIEW$[7] = "USING RANGE FROM " + QUO + "0003" + QUO +                
                                 " TO " + QUO + "0008" + QUO                  
                                                                              
! **** COMMAND MODE PROCESSING ****                                           
!                   FUNCTION                                                  
!                     |VERIFY(Y/N)                                            
!                     ||LINK NAME                                             
!                     |||||||||| COMMENT HEADER                               
!                     |||||||||||||||||||||||||||||||||...                    
COUNT-FUNCTION                                                                
     LET VIEW$[16] = "N         Example of COUNT Function"                    
LIST-FUNCTION                                                                 
     LET VIEW$[16] = "L         Example of LIST Function"                     
PRINT-FUNCTION                                                                
     LET VIEW$[16] = "P         Example of PRINT Function"                    
DELETE-FUNCTION                                                               
     LET VIEW$[16] = "CY        Example of DELETE Function"                   
MOVE-FUNCTION                                                                 
     LET VIEW$[16] = "MYUTTEST  Example of MOVE Function"                     
COPY-FUNCTION                                                                 
     LET VIEW$[16] = "CYUTTEST  Example of COPY Function"                     
SUM-FUNCTION                                                                  
     LET VIEW$[16] = "S" +                     !<- FUNCTION                   
                     CHR(1) +                  !<- # of Columns to SUM        
                     CHR(5) +                  !<- Column Number to SUM       
                     "Example of SUM Function" !<- Comment Header             
CHANGE-FUNCTION                                                               
     LET VIEW$[16] = "c" +                           !<- FUNCTION             
                     "Y" +                           !<- VERIFY(Y/N)          
                     CHR(17) +                       !<- Length of Change Exp 
                     "#UTCUST.TERMS = "+QUO+"Z"+QUO+ !<- Expression           
                     "Example of CHANGE Function"    !<- Comment Header