Le portail francophone de la géomatique

/*
Sous réserve d'utiliser une base Oracle
*/

SELECT LPAD (LTRIM (MJ2_BATI.CCOSEC), 2, '0') AS "Section Cadastrale",
MJ2_BATI.DNVOIRI AS "Numéro de voirie du logement",
       MJ2_BATI.DVOILIB AS "Libellé de voie du logement",
       D.CCOAFF,
       D.DCAPEC AS "Catégorie",
       D.DCETLC AS "Coeff d'entretien",
          --COUNT (D.INVAR) AS "NB LOGEMENT",
          MJ2_BATI.CCOCOM
       || '000'
       || LPAD (LTRIM (MJ2_BATI.CCOSEC), 2, '0')
       || LPAD (MJ2_BATI.DNUPLA, 4, 0)
          AS CODE_PARC,

       MJ2_LOCAL.JANNAT AS "Année de construction",
       CASE
          WHEN MJ2_LOCAL.JANNAT BETWEEN 1949 AND 1974 THEN '1949 - 1974'
          WHEN MJ2_LOCAL.JANNAT BETWEEN 1975 AND 1989 THEN '1975 - 1989'
          WHEN MJ2_LOCAL.JANNAT BETWEEN 1990 AND 2003 THEN '1990 - 2003'
          WHEN MJ2_LOCAL.JANNAT > 2003 THEN 'post 2003'
          ELSE 'avant 1949'
       END
          AS GROUPE_DATE,
       MJ2_LOCAL.CCONLC AS "Nature du local",

       MJ2_LOCAL.DNATLC,
       CASE MJ2_LOCAL.DNATLC
          WHEN 'D' THEN 'Domicile principal occupé par le propriétaire'
          WHEN 'L' THEN 'Loué'
          WHEN 'P' THEN 'Occupé par le propriétaire'
          WHEN 'V' THEN 'Vacant'
          ELSE DNATLC
       END
          AS OCCUPATION_MJ3,
       DECODE (MJ2_PROPRIO.DNATPR,
               'ECF', 'ECONOMIQUEMENT FAIBLE (NON SERVI)',
               'FNL', 'FONCTIONNAIRE LOGE',
               'DOM', 'PROPRIETAIRE OCCUPANT DOM',
               'HLM', 'OFFICE HLM',
               'SEM', 'SOCIETE D ECONOMIE MIXTE',
               'TGV', 'SNCF',
               'RFF', 'RESEAU FERRE DE FRANCE',
               'CLL', 'COLLECTIVITE LOCALE',
               'CAA', 'CAISSE ASSURANCE AGRICOLE',
               '')
          AS "Nature de la personne",
       CASE
          WHEN MJ2_PROPRIO.CCOGRM = '0 ' THEN 'Personne Physique'
          ELSE 'Personne Morale'
       END
          AS "type de propriétaire",
       MJ2_PROPRIO.CCOGRM AS "code personne morale",
       DECODE (TRIM (MJ2_PROPRIO.CCOGRM),
               0, 'PERSONNES MORALES NON REMARQUABLES',
               1, 'ETAT',
               2, 'REGION',
               3, 'DEPARTEMENT',
               4, 'COMMUNE',
               5, 'OFFICE HLM',
               6, 'PERSONNES MORALES REPRESENTANT DES SOCIETES',
               7, 'COPROPRIETAIRE',
               8, 'ASSOCIE',
               9, 'ETABLISSEMENTS PUBLICS OU ARGANISMES ASSIMILES',
               '')
          AS "Type de personne morale",
       CASE TRIM (MJ2_PROPRIO.GTOPER)
          WHEN '1'
          THEN
                CASE TRIM (BOTH FROM MJ2_PROPRIO.DQUALP)
                   WHEN 'M' THEN 'M.'
                   ELSE TRIM (BOTH FROM MJ2_PROPRIO.DQUALP)
                END
             || ' '
             || REGEXP_SUBSTR (MJ2_PROPRIO.DDENOM1, '([A-Z]*)', 1)
             || ' '
             || REGEXP_SUBSTR (MJ2_PROPRIO.DDENOM1,
                               '[^\/]+',
                               1,
                               2)
          ELSE
             MJ2_PROPRIO.DDENOM1
       END
          AS "Propriétaire"
  FROM    MJ2_DESCPEV D /*La table de description de la partie évaluation suffisante pour les données bâti*/
       INNER JOIN
          (   (   MJ2_BATI /*La table du bâti*/
               INNER JOIN
                  MJ2_LOCAL /*La table des locaux décrits*/
               ON MJ2_BATI.INVAR = MJ2_LOCAL.INVAR)
           INNER JOIN
              MJ2_PROPRIO /*La table des propriétaires*/
           ON (    MJ2_LOCAL.DNUPRO = MJ2_PROPRIO.DNUPRO
               AND MJ2_BATI.CCOCOM = MJ2_PROPRIO.CCOCOM))
       ON (D.INVAR = MJ2_BATI.INVAR)
 WHERE     DNUPEV = 001
       AND D.CCOAFF = 'H' /*Contrainte pour ne s'occuper que de l'habitat*/
       AND MJ2_PROPRIO.DNULP = 01 /*Contrainte sur le numéro d'ordre du propriétaire*/
       AND REGEXP_SUBSTR (D.DCAPEC, '^((6)|(7)|(8))') IS NOT NULL /*Contrainte sur les catégories de logement*/
GROUP BY D.CCOAFF,
         D.DCAPEC,
         D.DCETLC,
            MJ2_BATI.CCOCOM
         || '000'
         || LPAD (LTRIM (MJ2_BATI.CCOSEC), 2, '0')
         || LPAD (MJ2_BATI.DNUPLA, 4, 0),
         MJ2_LOCAL.JANNAT,
         -- MJ2_LOCAL.JDATAT,
         MJ2_LOCAL.CCONLC,
         MJ2_LOCAL.GPDL,
         MJ2_LOCAL.DNATLC,
         CASE MJ2_LOCAL.DNATLC
            WHEN 'D' THEN 'Domicile principal occupé par le propriétaire'
            WHEN 'L' THEN 'Loué'
            WHEN 'P' THEN 'Occupé par le propriétaire'
            WHEN 'V' THEN 'Vacant'
            ELSE DNATLC
         END,
         CASE
            WHEN MJ2_PROPRIO.CCOGRM = '0 ' THEN '1'
            ELSE MJ2_PROPRIO.GTOPER
         END,
         MJ2_PROPRIO.DNATPR,
         MJ2_PROPRIO.CCOGRM,
         MJ2_PROPRIO.DQUALP,
         MJ2_PROPRIO.GTOPER,
         MJ2_PROPRIO.DDENOM1,
         MJ2_BATI.DNVOIRI,
         MJ2_BATI.DVOILIB;

Spool c:\monnomdefichier.csv
<la requête>
Spool off