/*-------------------------------------------------------------------*/
/* xword(string,n,delimchar)                             SPFSE REXX  */
/* Returns the nth delmited word in a string                         */
/*-------------------------------------------------------------------*/
char *xword(char *x, int xn, char *xdelim) {
   char *xarray[];
   char *xret = "";
   int nwrds;
   nwrds = strparsex(xarray, x, xdelim);
   if(xn > 0 && xn <= nwrds){xret = xarray[xn-1];}
   return (xret);
 }//word
//--------------------------------------------------------------------------------------------------