//-----------------------------------------------------------------------------
// Calls SUB.SPF
// FORMAT:  SUB PARMS
// Mark McDonald 2008
//-----------------------------------------------------------------------------
void spf(void) {
  char *td;
  char *tcmd;
  char *msg = " ";
  char *tspf = "h:\\u\\pcdos\\rexx.exe h:\\u\\spfpc40\\macros\\sub.spf ";
  int   i;
  char* tr;
  td = spfservice("query","FILESPEC");
  //--- Get name of SPF Macro ---
  strcat(tspf,argv[1]);
  //--- Get Parms ---
  i = 2;
  while (i < argc) {
    strcat(msg,StrCompose(" ",argv[i]));
    ++i;
  } // while
  // --- Build System Command
  tcmd = strcompose("system NOSTOP ",tspf," ",td,msg);
//  MSG(tcmd);
  tr = spfservice("cmd",tcmd);
} //SUB.C