cle scr
prompt *** ADICIONAR DPTOS ***
prompt
accept nom prompt 'Digite Nombre DPTO: '
set verify off
insert into dpto values(seq01.nextval,upper('&nom'));
prompt presione <ENTER> para continuar...
accept tecla
cle scr
prompt
prompt *** TABLA DEPARTAMENTOS ***
prompt
select DptCod Codigo, DptNom Nombre from dpto;