/*
   (See also @SHIFT)
.  ----------------------------------------------------------------- */
N_FIX_NAME:                            /*@                           */
   address TSO

   lowcase = "abcdefghijklmnopqrstuvwxyz"
   upcase  = lowcase
   upper upcase

   namedata = Translate(namedata," ",",") /* no commas               */
   parse var namedata ln fn .          /* DOAKES   JOE               */
   parse var ln    i 2   b             /* D OAKES                    */
   b = Translate(b,lowcase,upcase)     /* oakes                      */
   ln  =   i||b                        /* Doakes                     */
   parse var fn    i 2   b             /* J OE                       */
   b = Translate(b,lowcase,upcase)     /* oe                         */
   fn  =   i||b                        /* Joe                        */
   namedata = Space(fn ln,1)           /* Joe Doakes                 */

return                                 /*@ N_FIX_NAME                */