pears.IXTextWrite

CREATE PROCEDURE "pears"."IXTextWrite"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "ixdefid" CHAR(20),IN "prefix" CHAR(20),IN "recordid" CHAR(20),IN "thetext" long VARCHAR ) 
BEGIN
  DECLARE "filename" CHAR(250);
  SET "filename" = NULL;
  SELECT "trim"("directory") INTO "filename" FROM "ixssearchdefinition" WHERE "id" = "ixdefid";
  IF "isnull"("filename",'') = '' THEN
    RETURN
  END IF;
  IF "right"("filename",1) <> '\\' THEN
    SET "filename" = "filename"+'\\'
  END IF;
  SET "filename" = "string"("filename","prefix",'$',"recordid",'.txt');
  CALL "xp_write_file"("filename","string"("thetext"))
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IXTextWrite" IS 
{CREATE PROCEDURE IXTextWrite 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN ixdefid CHAR(20),IN prefix CHAR(20),IN recordid CHAR(20),IN thetext long VARCHAR)
BEGIN
  DECLARE filename CHAR(250);
  SET filename=NULL;
  SELECT TRIM(directory) INTO filename FROM ixssearchdefinition WHERE id = ixdefid;
  IF isnull(filename,'') = '' THEN
    RETURN
  END IF;
  IF "right"(filename,1) <> '\\' THEN
    SET filename=filename+'\\'
  END IF;
  SET filename=string(filename,prefix,'$',recordid,'.txt');
  CALL xp_write_file(filename,string(thetext))
END
}