//FTP's code to server as defined in ftpsend.spf
//Mark McDonald
void sub(void) {
  char *td;
  char *trexx = "h:\\u\\b\\rexx.bat h:\\u\\spfpc40\\macros\\bftpsend.spf";
  char *tcmd;
  char *tparms;
  char *tfilespec;
  int   i;
  //--- Get Parms ---
  tfilespec = spfservice("query","filespec");
  // --- Build System Command
  tcmd = strcompose("system ",trexx," ",tfilespec);
  // MSG(tcmd);
  spfservice("cmd",tcmd);
} // sub