/*---------------------------------------------------------------*/
/* XUCWORDS(X)   Makes 1st Letter of Each Word Upper Case        */
/*---------------------------------------------------------------*/
  XUCWORDS: PROCEDURE
   ARG X
    X = TRANSLATE(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
    XR = ''
    DO CNT = 1 TO WORDS(X)
       XR = XR""TRANSLATE(LEFT(WORD(X,CNT),1))""RIGHT(WORD(X,CNT),LENGTH(WORD(X,CNT))-1)" "
    END
  RETURN XR
/*---------------------------------------------------------------*/