LISTA ALFABETICA oracle
Di seguito una semplice procedura in Pl/Sql che crea una tabella di una colonna contenente una lista alfabetica.
Compilare la seguente procedura.
CREATE OR REPLACE procedure PROC_LISTA_ALFABETICA IS
var1 varchar(4);
BEGIN
var1 := 'A';
EXECUTE IMMEDIATE 'DROP TABLE LISTA_ALFABETICA';
EXECUTE IMMEDIATE 'CREATE TABLE LISTA_ALFABETICA ( alf varchar(4) )';
while (ascii(var1) >= ascii('A') and ascii(var1) <= ascii('Z') ) loop
insert into LISTA_ALFABETICA values ( chr( ascii( var1 ) ) );
var1 := chr (ascii(var1) + 1 );
end loop ;
commit;
END;
/
Eseguire la procedura con il comando seguente.
BEGIN
PROC_LISTA_ALFABETICA();
END;
/
Compilare la seguente procedura.
CREATE OR REPLACE procedure PROC_LISTA_ALFABETICA IS
var1 varchar(4);
BEGIN
var1 := 'A';
EXECUTE IMMEDIATE 'DROP TABLE LISTA_ALFABETICA';
EXECUTE IMMEDIATE 'CREATE TABLE LISTA_ALFABETICA ( alf varchar(4) )';
while (ascii(var1) >= ascii('A') and ascii(var1) <= ascii('Z') ) loop
insert into LISTA_ALFABETICA values ( chr( ascii( var1 ) ) );
var1 := chr (ascii(var1) + 1 );
end loop ;
commit;
END;
/
Eseguire la procedura con il comando seguente.
BEGIN
PROC_LISTA_ALFABETICA();
END;
/