GOSTEI DO CODIGO

Use este forum para coisas que não tem nada a ver com Oracle.
Responder
bertosro
Rank: Analista Júnior
Rank: Analista Júnior
Mensagens: 88
Registrado em: Sex, 18 Ago 2006 11:13 am
Localização: São Paulo - SP
Bertosro
MSN / TALK - roberto.fernandes@gmail.com

Selecionar tudo

DECLARE

  VP$_SKOL     VARCHAR2(25) := 'GELADA';

  VP$_BRAHMA   VARCHAR2(25) := 'GELADA';

  VP$_ITAIPAVA VARCHAR2(25) := 'QUENTE';

  VP$USU       VARCHAR2(50) := 'Roberto Fernandes Sobrinho';

  VP$QUERO_BEBER NUMBER     := 1247;

BEGIN

      IF    VP$_SKOL     = 'GELADA' THEN

        FOR I IN 1 .. VP$QUERO_BEBER LOOP

            dbms_output.put_line(VP$USU||' BEBEU '||I||' SKOL '||VP$_SKOL||'.');

        END LOOP;    

      ELSIF VP$_BRAHMA   = 'GELADA' THEN

        FOR I IN 1 .. VP$QUERO_BEBER LOOP

            dbms_output.put_line(VP$USU||' BEBEU '||I||' BRAHMA '||VP$_SKOL||'.');

        END LOOP; 

      ELSIF VP$_ITAIPAVA = 'GELADA' THEN

        FOR I IN 1 .. VP$QUERO_BEBER LOOP

            dbms_output.put_line(VP$USU||' BEBEU '||I||' ITAIPAVA '||VP$_SKOL||'.');

        END LOOP; 

      ELSE

        FOR I IN 1 .. VP$QUERO_BEBER/2 LOOP

            dbms_output.put_line(VP$USU||' BEBEU '||I||' COCA COLA '||VP$_SKOL||'.');

        END LOOP;    

      END IF;

END;      
BERTOSRO :-o
ricardocmoreno
Rank: Programador Sênior
Rank: Programador Sênior
Mensagens: 51
Registrado em: Qua, 12 Mar 2008 2:11 am
Localização: São Bernardo - SP
Ricardo Moreno
DBA Oracle Pleno

“Só sei que nada sei, e o fato de saber isso, me coloca em vantagem sobre aqueles que acham que sabem alguma coisa.”
(Sócrates 470 a.C – 399 a.C)

auhauahuahuahaua

:D

abs
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 12 visitantes