pears.BlobstoreCopy

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."BlobstoreCopy" IS 
{CREATE FUNCTION 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
}