*---------------------------------------------------------------* 
 *           Conversie UPPER to lower case v.v.        Logiforce *   
 *---------------------------------------------------------------* 
I              'ABCDEFGHIJKLMNOPQRS- C         UP  
I              'TUVWXYZÄÖÜß'                       
I              'abcdefghijklmnopqrs- C         LO  
I              'tuvwxyzäöüß'                       
 *                                              
C           *ENTRY    PLIST                     
C                     PARM           PUPLOW  2  
C                     PARM           PIN    80  
C                     PARM           POUT   80  
C                     MOVE *BLANKS   POUT       
C           PUPLOW    IFEQ 'LU'                 
 * lower case --> UPPER CASE 
C           LO:UP     XLATEPIN       POUT          
C                     ELSE                         
C           PUPLOW    IFEQ 'UL'                    
 * UPPER CASE --> lower case                       
C           UP:LO     XLATEPIN       POUT          
C                     ENDIF                        
C                     ENDIF                        
C                     SETON                     LR 
C                     RETRN