//FTP's code to server as defined in ftpsend.spf
void check(void) {
  char *td;
  char *tr;
// char *trexx = "h:\\u\\pcdos\\rexx.exe h:\\u\\spfpc40\\macros\\ftpsend.spf";
  char *trexx = "h:\\u\\oorexx\\rexx.exe h:\\u\\spfpc40\\macros\\check.spf";
  char *tret = "c:\\temp\\dret2.txt";
  char *tdret = "c:\\temp\\dret.txt";
  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"); }
  // --- Delete Return File If Exists ---
  if(fileexist(tret)){tr = filedelete(tret);}
  if(fileexist(tdret)){tr = filedelete(tdret);}
  // --- End Edit - Because of Windows File lock  ---
  spfservice("cmd","end");
  // --- Build System Command
  tcmd = strcompose("system nostop ",trexx," ",tfilespec);
  spfservice("cmd",tcmd);
  tcmd = strcompose("edit ",tfilespec);
  spfservice("cmd",tcmd);
  if(fileexist(tret)){tcmd = strcompose("MERGEMSG ",tret); spfservice("cmd",tcmd);}
//  MSG(tcmd);
} //check
#include "x.c"