Problemas con PL

sebastiann
12 de Agosto del 2004
Tengo un problema con un pl, quiero imprimir un ecabezado y luego una consulta de la siguiente forma:

begin

dbms_output.put_line('Listado de Abonados por Central');
dbms_output.put_line('---------------------------------------------------------------------------------------------------------------------');
dbms_output.put_line('ANI | COORDENADA | CENTRAL |CABLE');
dbms_output.put_line('---------------------------------------------------------------------------------------------------------------------');
end;
/

select
decode(LNEA.UNIDAD_UNI_DDN,null,LNEA.TCIR_TIPO||'-'||to_char(LNEA.CIRC_NRO),LNEA.UNIDAD_UNI_DDN||'-'||LNEA.UNIDAD_UNI_CTCA||'-'||LNEA.LNEA_TIENE_NRO_NRO) as ANI,
rpad(decode(EQAB.EQAB_COORDENADA,null,' ',EQAB.EQAB_COORDENADA),12,' ') as COORDENADA,
decode(to_char(nvl(LNEA.MANZ_CENT_ID,0)),'0',' ',to_char(LNEA.MANZ_CENT_ID)) as CENTRAL,
decode(to_char(nvl(LNEA.CABL_NRO,0)),'0',' ',to_char(LNEA.CABL_NRO)) as CABLE
from
EQUIPO_ABONADO EQAB,
LINEA LNEA,
REDWORK_CENTRAL REDW
where
LNEA.LNEA_ESTADO <> 'B' and
LNEA.LNEA_ESTADO <> 'L' and
LNEA.LNEA_ESTADO <> 'P' and
LNEA.LNEA_TIPO = 'R' and
LNEA.UNIDAD_UNI_DDN = EQAB.UNI_DDN(+) and
LNEA.UNIDAD_UNI_CTCA = EQAB.UNI_CARACTERISTICA(+) and
LNEA.LNEA_TIENE_NRO_NRO = EQAB.NRO_NUMERO(+) and
REDW.CENT_ID = LNEA.MANZ_CENT_ID and
REDW.CENT_ID = EQAB.CENT_ID
order by CENTRAL, ANI;

pero la barra no deberia ir!!!!!

nerea
12 de Agosto del 2004
No entiendo lo que quieres decir con "pero la barra no deberia ir!!!!!"
Pero ¿no es más fácil utilizar el PROMPT en sqlplus que no utilizar PL sólo para una cabecera?

PROMPT Listado de Abonados por Central
PROMPT --------------------------------------------------------------------------------------------------------------------
PROMPT ANI | COORDENADA | CENTRAL |CABLE');
---------------------------------------------------------------------------------------------------------------------


select
decode(LNEA.UNIDAD_UNI_DDN,null,LNEA.TCIR_TIPO||'-'||to_char(LNEA.CIRC_NRO),LNEA.UNIDAD_UNI_DDN||'-'||LNEA.UNIDAD_UNI_CTCA||'-'||LNEA.LNEA_TIENE_NRO_NRO) as ANI,
rpad(decode(EQAB.EQAB_COORDENADA,null,' ',EQAB.EQAB_COORDENADA),12,' ') as COORDENADA,
decode(to_char(nvl(LNEA.MANZ_CENT_ID,0)),'0',' ',to_char(LNEA.MANZ_CENT_ID)) as CENTRAL,
decode(to_char(nvl(LNEA.CABL_NRO,0)),'0',' ',to_char(LNEA.CABL_NRO)) as CABLE
from
EQUIPO_ABONADO EQAB,
LINEA LNEA,
REDWORK_CENTRAL REDW
where
LNEA.LNEA_ESTADO <> 'B' and
LNEA.LNEA_ESTADO <> 'L' and
LNEA.LNEA_ESTADO <> 'P' and
LNEA.LNEA_TIPO = 'R' and
LNEA.UNIDAD_UNI_DDN = EQAB.UNI_DDN(+) and
LNEA.UNIDAD_UNI_CTCA = EQAB.UNI_CARACTERISTICA(+) and
LNEA.LNEA_TIENE_NRO_NRO = EQAB.NRO_NUMERO(+) and
REDW.CENT_ID = LNEA.MANZ_CENT_ID and
REDW.CENT_ID = EQAB.CENT_ID
order by CENTRAL, ANI;