1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| set termout on;
set serveroutput off ;
alter session set nls_date_format = 'dd/mm/yyyy';
-- Pas d'affichage des commandes
SET ECHO OFF ;
SET VERIFY OFF ;
-- Page illimitee et vierge
SET PAGESIZE 50000 ;
SET LONG 10000000;
SET LINESIZE 32767 ;
SET ARRAYSIZE 1 ;
-- Pas d'entre ligne
SET RECSEP OFF ;
-- Pas de blancs en fin de ligne
SET TRIMOUT ON ;
SET TRIMSPOOL ON ;
-- not display output on screen
SET TERMOUT OFF ;
-- pas d'affichage du nb de rows, ni du nom des colones
SET FEEDBACK OFF ;
SET HEADING OFF ;
SET HEADSEP OFF ;
spool T:\XML.XML ;
prompt <?xml version="1.0" encoding="ISO-8859-1"?>;
SELECT xmltype (xmlelement(MUTUA,XMLAGG(xmlelement(Grp,xmlattributes(Id_grp as "Id"),XMLAgg(xmlelement(Contrat,xmlattributes(gprod_numexterne as "Num"),xmlelement(NumExterne,gprod_numexterne),xmlelement(NumeroContrat, gprod_contrat),xmlelement(Nom,grp_nom),Contralist)))) ).getclobval())
FROM (SELECT id_grp,gprod_contrat,gprod_numexterne,grp_nom,XMLElement("Evenements",XMLAgg(xmlelement(Evenement,xmlattributes(to_char(date_modif,'DD/MM/YYYY') as "DateEv"),xmlelement(commentaire, trim( commentaire)),decode (commentaire,'VIAMEDIS', xmlelement(NbrEnv,nombre_env))))) as Contralist
FROM EVENT_GRP,DUAL
GROUP BY Id_grp,gprod_contrat,gprod_numexterne,grp_nom)
GROUP BY Id_grp;
spool off |
Partager