PROGRAM FILE 93: READ AND DATA STATEMENTS FOR STRING DATA.                      
    ANSI STANDARD 3.2, 5.2, 14.2, 14.4                                          
                                                                                
SECTION 93.1: READ AND DATA STATEMENTS FOR STRING DATA                          
                                                                                
THIS SECTION TESTS THE ABILITY TO PICK UP STRING (CHARACTER)                    
DATA USING THE READ STATEMENT. VARIOUS SYNTACTIC VARIATIONS                     
ARE TESTED, ESPECIALLY FOR DATA FORMATS.                                        
                                                                                
PLEASE NOTE THAT THIS ROUTINE IS STRONGLY DEPENDENT                             
ON THE CORRECT OPERATION OF THE STRING COMPARISON                               
FEATURE. IF THAT FEATURE IS INCORRECT, THIS ROUTINE                             
WILL LIKELY GIVE INVALID RESULTS.                                               
                                                                                
THE VALUES FROM THE DATA STATEMENT ARE COMPARED TO THOSE                        
ASSIGNED TO STRING VARIABLES. THE EXPECTED AND ACTUAL                           
RESULTS ARE DISPLAYED, AND AN ERROR COUNT MAINTAINED.                           
THE READ STATEMENT IS USED WITH SEVERAL VARIABLES IN                            
THE VARIABLE LIST.                                                              
                                                                                
                BEGIN TEST                                                      
                                                                                
                                                                                
                                                                                
SHOULD BE: ***ABCD***                                                           
ACTUAL:    ***ABCD***                                                           
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***EFGHIJKLM***                                                      
ACTUAL:    ***EFGHIJKLM***                                                      
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+.   -***                     
ACTUAL:    ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+.   -***                     
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***EIGHTEEN POSITIONS***                                             
ACTUAL:    ***EIGHTEEN POSITIONS***                                             
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***ABCDEFGHI2.1E3***                                                 
ACTUAL:    ***ABCDEFGHI2.1E3***                                                 
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***ABC      DEF      GHI***                                          
ACTUAL:    ***ABC      DEF      GHI***                                          
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***A   BC   D***                                                     
ACTUAL:    ***A   BC   D***                                                     
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***A  B  C  D  E  F***                                               
ACTUAL:    ***A  B  C  D  E  F***                                               
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***AB,CD***                                                          
ACTUAL:    ***AB,CD***                                                          
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789***                           
ACTUAL:    ***ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789***                           
TEST OK                                                                         
                                                                                
                                                                                
SHOULD BE: ***!#$%&'()*+,-./:;<=>?^_***                                         
ACTUAL:    ***!#$%&'()*+,-./:;<=>?^_***                                         
TEST OK                                                                         
                                                                                
                                                                                
*** TEST PASSED ***                                                             
                                                                                
                  END TEST                                                      
                                                                                
END PROGRAM 93