All pastes #536971 Raw Edit

Esercizi SI

public text v1 · immutable
·published 2007-06-04 15:55 UTC
rendered paste body
SET SERVEROUTPUT ON;

-- Esercizio 1

DECLARE
       var1 VARCHAR (20) := 'ESAME';
       var2 VARCHAR (20) := 'DI';
       var3 VARCHAR (20) := 'SISTEMI';
       var4 VARCHAR (20) := 'INFORMATIVI';
BEGIN
       DBMS_OUTPUT.PUT_LINE('' || var1 || ' ' || var2 || ' ' || var3 || ' ' || var4 || '');
END;

-- Esercizio 2

CREATE FUNCTION "CF2Nome" (codicefiscale Fornitori.CFF%TYPE) IS
DECLARE
       nome Fornitori.NomeF%TYPE;
BEGIN
     SELECT NomeF INTO nome
     FROM Fornitori
     WHERE CFF = codicefiscale;
     DBMS_OUTPUT.PUT_LINE('Nome fornitore: ' || nome || '');
EXCEPTION
         WHEN NO_DATA_FOUND THEN
         DBMS_OUTPUT.PUT_LINE('Nessun fornitore per: ' || codicefiscale || '');
END;