TOKENUPPER()
 Converts the initial letter of a token into upper case
------------------------------------------------------------------------------
 Syntax

     TOKENUPPER(<cString>,[<cDelimiter>],[<nNumber>])
        --> cString

 Arguments

     <cString>  [@]  Designates the string that is searched for tokens
     (words).

     <cDelimiter>  Designates the delimiter list used by the token.

     <nNumber>  Designates the number of tokens in which the initial
     letter is converted into upper case.  The default value converts all
     tokens.

 Returns

     The processed character string is returned.

 Description

     The TOKENUPPER() function converts the initial letter of the tokens in
     the <cString> into an upper case letter.  If you specify a value for
     <nNumber>, only this number of tokens is processed.  If you do not
     specify a value for <nNumber>, all tokens in <cString> are processed.
     The function uses the following list of delimiters by default:

     CHR 32, 0, 9, 10, 13, 26, 32, 138, 141

     and the characters ,.;:!?/\<<>>()^#&%+-*

     The list can be replaced by your own list of delimiters, <cDelimiter>.
     Here are some examples of useful delimiters:

     Table 4-7:  String Manipulations
     ------------------------------------------------------------------------
     Description         <cDelimiter>
     ------------------------------------------------------------------------
     Pages               CHR(12)(Form Feed)
     Sentences           ".!?"
     File Names          ":\."
     Numerical strings   ",."
     Date strings        "/."
     Time strings        ":."
     ------------------------------------------------------------------------

 Note

     .  The return value of this function can be suppressed by
        implementing CSETREF() to save space in working memory.

 Examples

     .  Convert the initial letter of all tokens into upper case
        letters:

        ? TOKENUPPER("Good morning")            //"Good Morning"

     .  There are no detrimental effects if a larger number of tokens
        is specified than are available:

        ?TOKENUPPER("Good morning",, 5)         //"Good Morning"

     .  Process the first two tokens using your own delimiter:

        ?TOKENUPPER("/ab/ab/ab", "/", 2)        //"Ab/Ab/ab"