altname.user = SHIFT( rowname )
/*
   Returns a string with all words in lower-case but the first character
   of each word in upper-case.
   (See also FIXNAME)
.  ----------------------------------------------------------------- */
SHIFT: Procedure                       /*@                           */
   address TSO

   shifted = ""
   arg wordlist
   do Words( wordlist )
      parse var wordlist  word  wordlist
      low = Translate(word,,
                  "abcdefghijklmnopqrstuvwxyz",,
                  "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
      word  = Left(word,1)Substr(low,2)
      shifted = Space( shifted  word, 1)
   end                                 /* wordlist                   */

return( shifted )                      /*@ SHIFT                     */