*//////////////////////////////////////////////////////////////*                              
      * (#Replace)  Replace character(s) with new character(s)       *                              
      *                                                              *                              
      * String (Input/Output) - String to replace characters in      *                              
      * From (Input) - From string                                   *                              
      * To (Input) - Replacement string                              *                              
      *//////////////////////////////////////////////////////////////*                              
     D #Replace        PR                                                                           
     D  String                    65535    Varying                                                  
     D  From                       4096    Const Varying                                            
     D  To                         4096    Const Varying                                            
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * (#CtoN) Character to Numeric                                 *                              
      *                                                              *                              
      * String (Input) - Character representation of number          *                              
      * Returns - Numeric representation of string                   *                              
      *//////////////////////////////////////////////////////////////*                              
     D #CtoN           PR            30P 9                                                          
     D  String                       32    Const                                                    
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * (#ToUpper) Convert to Upper Case                             *                              
      *                                                              *                              
      * String(Input/Output) - String to convert to upper case       *                              
      *//////////////////////////////////////////////////////////////*                              
     D #ToUpper        PR                                                                           
     D  String                    65535    Varying                                                  
      *                                                                                             
      *//////////////////////////////////////////////////////////////*                              
      * (#ToLower) Convert to Lower Case                             *                              
      *                                                              *                              
      * String (Input/Output) String to convert to lower case        *                              
      *//////////////////////////////////////////////////////////////*                              
     D #ToLower        PR                                                                           
     D  String                    65535    Varying