//Calls FTPSUB.SPF to send current edit file to server then executes code on server.
void ftpsub(void) {
  char *td;
// char *trexx = "h:\\u\\pcdos\\rexx.exe h:\\u\\spfpc40\\macros\\ftpsend.spf";
  char *trexx = "h:\\u\\oorexx\\rexx.exe h:\\u\\spfpc40\\macros\\ftpsub.spf";
  char *tdrv = "Y";
  char *tcmd;
  char *tparms;
  char *tfilespec;
  char *texnt;
  int   i;
  //--- Get Parms ---
  tfilespec = spfservice("query","filespec");
  //--- Save File 1st ---
  if(xpos(xupper(xfilespec(tfilespec,"E")),"TXT, PHP, HTML, HTM, SPF, C",1) > 0 ){  spfservice("cmd","save"); }
  // --- Build System Command
  tcmd = strcompose("system nostop ",trexx," ",tfilespec);
//  MSG(tcmd);
  spfservice("cmd",tcmd);
  //Copy to my backup server
  tcmd = strcompose(tdrv,xtriml(tfilespec,1));
  td = filecopy(tfilespec,tcmd);
} //ftsub
#include "x.c"