‚*--------------------------------------------------------------------*                        
     ‚* Created on: April 27th, 2009.                                      *                        
     ‚* Created by: Robert Hicks                                           *                        
     ‚* Reason    : String type module constants.                          *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚*--------------------------------------------------------------------*                        
     ‚*   COPYRIGHT (C) 2009 ROBERT HICKS.  ALL RIGHTS RESERVED.           *                        
     ‚*   THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS         *                        
     ‚*   AS IS AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,          *                        
     ‚*   BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF                    *                        
     ‚*   MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE         *                        
     ‚*   DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS        *                        
     ‚*   LIABLE FOR ANY DIRECT,  INDIRECT, INCIDENTAL, SPECIAL,           *                        
     ‚*   EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT          *                        
     ‚*   LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;         *                        
     ‚*   LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)         *                        
     ‚*   HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN        *                        
     ‚*   CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE        *                        
     ‚*   OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS          *                        
     ‚*   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH             *                        
     ‚*   SUCH DAMAGE.                                                     *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚*--------------------------------------------------------------------*                        
     ‚* MODIFICATIONS:                                                     *                        
     ‚*                                                                    *                        
     ‚*    Date     Changed by   Spec. #  Description of changes           *                        
     ‚* ----------  ---------- ---------- -------------------------------- *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚**                                                                                            
     ‚* Covert case: Convert string to upper action.                                                
      /IF NOT DEFINED(C_#Upper)                                                                     
      /DEFINE C_#Upper                                                                              
     DC_#Upper         C                   0                                                        
      /ENDIF                                                                                        
                                                                                                    
     ‚**                                                                                            
     ‚* Covert case: Convert string to lower action.                                                
      /IF NOT DEFINED(C_#Lower)                                                                     
      /DEFINE C_#Lower                                                                              
     DC_#Lower         C                   1                                                        
      /ENDIF                                                                                        
                                                                                                    
     ‚**                                                                                            
     ‚* Error return value.                                                                         
      /IF NOT DEFINED(C_#Error)                                                                     
      /DEFINE C_#Error                                                                              
     DC_#Error         C                   -3                                                       
      /ENDIF                                                                                        
                                                                                                    
     ‚**                                                                                            
     ‚* Success return value.                                                                       
      /IF NOT DEFINED(C_#Success)                                                                   
      /DEFINE C_#Success                                                                            
     DC_#Success       C                   -7                                                       
      /ENDIF                                                                                        
                                                                                                    
     ‚**                                                                                            
     ‚* Failure return value.                                                                       
      /IF NOT DEFINED(C_#Failure)                                                                   
      /DEFINE C_#Failure                                                                            
     DC_#Failure       C                   0                                                        
      /ENDIF                                                                                        
                                                                                                    
     ‚**                                                                                            
     ‚* Generic string marker value.                                                                
      /IF NOT DEFINED(C_$Marker)                                                                    
      /DEFINE C_$Marker                                                                             
     DC_$Marker        C                   '*'                                                      
      /ENDIF