pears.IXTextWrite [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.IXTextWrite ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>