pears.BlobstoreCopy

CREATE FUNCTION "pears"."BlobstoreCopy"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "fromclass" CHAR(1),IN "fromid" CHAR(20),IN "toclass" CHAR(1),IN "toid" CHAR(20),IN "requestedby" CHAR(15) ) 
RETURNS INTEGER
NOT deterministic
BEGIN
  DECLARE "z" INTEGER;
  SET "z" = "BlobstoreRead"("fromclass","fromid",NULL);
  IF "z" IS NULL THEN
    return-1 -- Row not found
  ELSE
    RETURN "BlobStoreWrite"("toclass","toid","z","requestedby")
  END IF
END