PROCEDURE CAP_PR_MOS_NUM(PI_Num in integer, Pv_Resp out varchar2, PV_ERROR out varchar2)IS --BLOQUE DE DECLARACIONES VAR1 INTEGER:=0; LN_SUM NUMBER := 0; BEGIN --BLOQUE DE VALIDACIONES IF PI_Num IS NOT NULL OR PI_Num > 0 THEN WHILE (VAR1 <=10)LOOP VAR1:=VAR1|| TO_CHAR(LN_SUM) || ','; Pv_Resp:=LN_SUM; VAR1:= VAR1+1; END LOOP; ELSE PV_ERROR:='NUMERO INVALIDO'; END IF;
END CAP_PR_MOS_NUM;