IF EXISTS (SELECT * FROM SYSOBJECTS O, SYSUSERS U
                    WHERE
	        O.NAME = 'CURSOR_PRODUTO' AND
	        TYPE = 'P'                    AND
	        U.UID = O.UID                 AND
	        U.NAME = USER)

   DROP PROCEDURE CURSOR_PRODUTO
   GO

CREATE PROCEDURE CURSOR_PRODUTO
  @P_CDPRODUTO     VARCHAR(10),
  @P_CURSOR_PROD   CURSOR VARYING OUTPUT

AS
  SET @P_CURSOR_PROD = CURSOR FORWARD_ONLY STATIC FOR
     SELECT CDSUBPRODUTO
     FROM ROTFABRICA
     WHERE CDPRODUTO = @P_CDPRODUTO;
     OPEN @P_CURSOR_PROD
GO

