‚*--------------------------------------------------------------------*                        
     ‚* Created on: April 27th, 2009.                                      *                        
     ‚* Created by: Robert Hicks                                           *                        
     ‚* Reason    : String type prototypes.                                *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚*--------------------------------------------------------------------*                        
     ‚*   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           *                        
     ‚* ----------  ---------- ---------- -------------------------------- *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚**                                                                                            
     ‚* Convert string case.                                                                        
     DQlgConvertCase   PR                  ExtProc('QlgConvertCase')                                
     D $RqsCtlBlk                 32767    Const Options(*VarSize)                                  
     D $InputData                 32767    Const Options(*Varsize)                                  
     D $OutputData                32767          Options(*Varsize)                                  
     D #LenOfData                    10I 0 Const                                                    
     D $ErrStr                    32767          Options(*Varsize)                                  
                                                                                                    
     ‚**                                                                                            
     ‚* Convert string to upper case.                                                               
     DCVTTOU           PR         32767    Varying                                                  
     D $InputStr                  32767    Value Varying                                            
     D #InputLen                     10I 0 Value                                                    
     D $Error                                    Options(*NoPass: *Omit)                            
     D                                           LikeDS($GenErr_t)                                  
     D #CCSID                        10I 0 Value Options(*NoPass)                                   
                                                                                                    
     ‚**                                                                                            
     ‚* Convert string to lower case.                                                               
     DCVTTOL           PR         32767    Varying                                                  
     D $InputStr                  32767    Value Varying                                            
     D #InputLen                     10I 0 Value                                                    
     D $Error                                    Options(*NoPass: *Omit)                            
     D                                           LikeDS($GenErr_t)                                  
     D #CCSID                        10I 0 Value Options(*NoPass)                                   
                                                                                                    
     ‚**                                                                                            
     ‚* Return if is string has a leading/trailing generic.                                         
     DGENSTR           PR              N                                                            
     D $InputStr                  32767    Value Varying                                            
     D $LeadMarker                     N   Options(*NoPass: *Omit)                                  
     D $TrailMaker                     N   Options(*NoPass: *Omit)                                  
     D $Marker                        1    Value Options(*NoPass)                                   
                                                                                                    
     ‚**                                                                                            
     ‚* Return a random string.                                                                     
     DRNDSTR           PR            10I 0                                                          
     D $RtnStr                    32767    Options(*VarSize)                                        
     D #RtnLen                       10I 0 Value                                                    
     D $RplStr                      256    Value Options(*NoPass)                                   
                                                                                                    
     ‚**                                                                                            
     ‚* Return a random number.                                                                     
     DRNDNBR           PR            10I 0                                                          
     D #RtnNbr                       10I 0                                                          
     D #MaxNbr                       10I 0 Value                                                    
                                                                                                    
     ‚**                                                                                            
     ‚* Retrieve random number.                                                                     
     DCEERAN0          PR                                                                           
     D #Seed                         10I 0                                                          
     D #RndNbr                        8F                                                            
     D $FeedBack                     12    Options(*OMIT)                                           
      /DEFINE M_STR