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;
I liked the code
-
- Rank: Analista Júnior
- Posts: 88
- Joined: Fri, 18 Aug 2006 11:13 am
- Location: São Paulo - SP
Bertosro
MSN / TALK - roberto.fernandes@gmail.com
MSN / TALK - roberto.fernandes@gmail.com
-
- Rank: Programador Sênior
- Posts: 51
- Joined: Wed, 12 Mar 2008 2:11 am
- Location: 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)
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
: D
ABS
-
- Information
-
Who is online
Users browsing this forum: No registered users and 13 guests