pears.NetBlobPermitted

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetBlobPermitted" IS 
{CREATE FUNCTION pears.NetBlobPermitted( IN pWebUserID CHAR(20),IN pBlobClass CHAR(1), IN pBlobID CHAR(20), IN pUpOrDown CHAR(1) ) 
RETURNS INTEGER
BEGIN
IF pBlobClass='G' AND pUpOrDown='D' THEN
  RETURN 1
ELSE
  RETURN 0
END IF;
END
}