/*-------------------------------------------------------------------
   xwords(string,delimchar)                              SPFSE REXX
   Returns number of delimited words in stringf
  -------------------------------------------------------------------*/
char *xwords(char *x, char *xdelim) {
   char *xarray[];
   int xret = 0;
   xret = strparsex(xarray, x, xdelim);
   return (xret);
}//xwords