Génération de script SQL pour vider un schéma, en créer un à l'identique, et...

Génération de script SQL pour vider un schéma, en créer un à l'identique, et exporter les données de tables au format INSERT.

config/module.config.php

@@ -8,6 +8,8 @@ use UnicaenOracle\ORM\Query\Functions\Chr;
 use UnicaenOracle\ORM\Query\Functions\CompriseEntre;
 use UnicaenOracle\ORM\Query\Functions\Convert;
 use UnicaenOracle\ORM\Query\Functions\Replace;
+use UnicaenOracle\Service\DataService;
+use UnicaenOracle\Service\SchemaService;
 
 return [
     'doctrine' => [
@@ -36,4 +38,10 @@ return [
             ],
         ],
     ],
+    'service_manager' => [
+        'invokables' => [
+            SchemaService::class => SchemaService::class,
+            DataService::class => DataService::class,
+        ]
+    ]
 ];

src/UnicaenOracle/Service/DataService.php

+<?php
+
+namespace UnicaenOracle\Service;
+
+use Doctrine\DBAL\Connection;
+use Doctrine\DBAL\DBALException;
+use UnicaenApp\Exception\RuntimeException;
+
+class DataService
+{
+
+    /**
+     * @param Connection $srcSchemaConn
+     * @param string     $schemaName
+     * @param string[]   $tableNames
+     * @param string     $outputFilePathTemplate
+     * @return string[]
+     */
+    public function createDataInsertsScriptFile(Connection $srcSchemaConn, $schemaName, array $tableNames, $outputFilePathTemplate)
+    {
+        try {
+            $stmt = $srcSchemaConn->prepare($this->generateSQLForTablesColumnsInfos($tableNames));
+            $stmt->execute();
+        } catch (DBALException $e) {
+            throw new RuntimeException("Erreur!", null, $e);
+        }
+        $results = $stmt->fetchAll();
+        $preparedTablesMetadata = $this->prepareTablesMetadata($results);
+        //var_dump(prepareTablesMetadata($results));
+        $outputFilePaths = [];
+
+        foreach ($preparedTablesMetadata as $tableName => $columnsConfig) {
+            $outputFilePath = sprintf($outputFilePathTemplate, $tableName);
+            $fh = fopen($outputFilePath, 'w');
+            fwrite($fh, "set define off ;" . PHP_EOL . PHP_EOL);
+            $sqlSelect = "SELECT *  FROM $tableName";
+            try {
+                $stmt = $srcSchemaConn->prepare($sqlSelect);
+                $stmt->execute();
+            } catch (DBALException $e) {
+                throw new RuntimeException("Erreur!", null, $e);
+            }
+            while ($row = $stmt->fetch()) {
+                $tableMetadata = $preparedTablesMetadata[$tableName];
+                $formattedColumnValues = [];
+                foreach ($tableMetadata as $columnName => $columnMetadata) {
+                    $columnValue = $row[$columnName];
+                    if ($columnValue === null) {
+                        $formattedColumnValue = 'NULL';
+                    } else {
+                        $formatter = $columnMetadata['formatter'];
+                        $formattedColumnValue = $formatter($columnValue);
+                    }
+                    $formattedColumnValues[$columnName] = $formattedColumnValue;
+                }
+                $columnNames = implode(', ', array_keys($formattedColumnValues));
+                $columnValues = implode(', ', $formattedColumnValues);
+                $sqlInsert = "INSERT INTO $schemaName.$tableName ($columnNames) VALUES ($columnValues) ;";
+                fwrite($fh, $sqlInsert . PHP_EOL);
+            }
+            fclose($fh);
+            $outputFilePaths[] = $outputFilePath;
+        }
+        sort($outputFilePaths);
+
+        return $outputFilePaths;
+    }
+
+    /**
+     * @param array $tableNames
+     * @return string
+     */
+    function generateSQLForTablesColumnsInfos(array $tableNames)
+    {
+        $tables = implode(',', array_map(function ($tn) {
+            return "'$tn'";
+        }, $tableNames));
+
+        return <<<EOS
+select table_name, column_name, data_type 
+from all_tab_columns 
+where table_name in ($tables)
+order by column_id
+EOS;
+    }
+
+    /**
+     * @param array $data
+     * @return array
+     */
+    function prepareTablesMetadata(array $data)
+    {
+        $formatted = [];
+        foreach ($data as $row) {
+            $tableName = $row['TABLE_NAME'];
+            $colName = $row['COLUMN_NAME'];
+            $dataType = $row['DATA_TYPE'];
+
+            switch ($dataType) {
+                case 'NUMBER':
+                    $formatter = function ($value) {
+                        return $value;
+                    };
+                    break;
+                case 'VARCHAR2':
+                    $formatter = function ($value) {
+                        $value = str_replace("'", "''", $value);
+
+                        return "'$value'";
+                    };
+                    break;
+                case 'CLOB':
+                    $formatter = function ($value) {
+                        $value = str_replace("'", "''", $value);
+                        // découpage en morceaux de 4000 caractères pour éviter l'erreur ORA-01704: string literal too long.
+                        $lineEnding = '######';
+                        $lines = explode($lineEnding, rtrim(chunk_split($value, 4000, $lineEnding), $lineEnding));
+                        $toClobs = array_map(function ($value) {
+                            return "TO_CLOB('$value')";
+                        }, $lines);
+
+                        return implode('||', $toClobs);
+                    };
+                    break;
+                case 'DATE':
+                    $formatter = function ($value) {
+                        return "TO_DATE('$value', 'YYYY-MM-DD HH24:MI:SS')";
+                    };
+                    break;
+                default:
+                    throw new RuntimeException("Type non prévu : $dataType");
+            }
+            $cfg = [
+                'DATA_TYPE' => $dataType,
+                'formatter' => $formatter,
+            ];
+
+            if (!isset($formatted[$tableName])) {
+                $formatted[$tableName] = [];
+            }
+            $formatted[$tableName][$colName] = $cfg;
+        }
+
+        return $formatted;
+    }
+
+}
\ No newline at end of file

src/UnicaenOracle/Service/SchemaService.php

+<?php
+
+namespace UnicaenOracle\Service;
+
+use Doctrine\DBAL\Connection;
+use Doctrine\DBAL\DBALException;
+use Doctrine\ORM\NoResultException;
+use UnicaenApp\Exception\RuntimeException;
+
+/**
+ *
+ *
+ * @author Unicaen
+ */
+class SchemaService
+{
+    /**
+     * @param Connection $srcSchemaConn
+     * @param string     $schemaName
+     * @param string     $outputFilePath
+     * @throws NoResultException
+     */
+    public function createSchemaClearingScriptFile(Connection $srcSchemaConn, $schemaName, $outputFilePath)
+    {
+        try {
+            $stmt = $srcSchemaConn->executeQuery($this->generateSQLForSchemaClearing($schemaName));
+            $stmt->execute();
+        } catch (DBALException $e) {
+            throw new RuntimeException("Erreur!", null, $e);
+        }
+        $result = $stmt->fetchAll(\PDO::FETCH_COLUMN);
+        if (count($result) === 0) {
+            throw new NoResultException();
+        }
+        $sql = implode('', $result);
+        file_put_contents($outputFilePath, $sql);
+    }
+
+    /**
+     * @param Connection $srcSchemaConn
+     * @param string     $srcSchemaName
+     * @param string     $dstSchemaName
+     * @param string     $outputFilePath
+     */
+    public function createSchemaCreationScriptFile(Connection $srcSchemaConn, $srcSchemaName, $dstSchemaName, $outputFilePath)
+    {
+        // config DBMS Metadata
+        try {
+            $stmt = $srcSchemaConn->executeQuery($this->generateSQLForDBMSMetadataPackageConfiguration());
+            $stmt->execute();
+        } catch (DBALException $e) {
+            throw new RuntimeException("Erreur!", null, $e);
+        }
+        // generate DDL
+        try {
+            $stmt = $srcSchemaConn->prepare($this->generateSQLForSchemaCreation($srcSchemaName));
+            $stmt->execute();
+        } catch (DBALException $e) {
+            throw new RuntimeException("Erreur!", null, $e);
+        }
+        $result = $stmt->fetchAll(\PDO::FETCH_COLUMN);
+        $sql = implode('', $result);
+        $sql = str_replace("\"$srcSchemaName\"", "\"$dstSchemaName\"", $sql);
+        file_put_contents($outputFilePath, $sql);
+    }
+
+    /**
+     * @param string $schemaName
+     * @return string
+     */
+    function generateSQLForSchemaClearing($schemaName)
+    {
+        return <<<EOS
+--
+-- triggers
+--
+
+SELECT 'DROP TRIGGER ' || owner || '.' || trigger_NAME || ';' || chr(10)
+FROM   ALL_TRIGGERS
+WHERE  owner = '$schemaName'
+
+UNION ALL
+
+
+--
+-- views
+--
+
+SELECT 'DROP VIEW ' || owner || '.' || view_name || ';' || chr(10)
+FROM   all_views
+WHERE  owner      = '$schemaName'
+
+UNION ALL
+
+
+--
+-- materialized views
+--
+
+SELECT 'DROP MATERIALIZED VIEW ' || owner || '.' || mview_name || ';' || chr(10)
+FROM   all_mviews
+WHERE  owner = '$schemaName'
+
+UNION ALL
+
+
+--
+-- procedures and functions
+--
+
+SELECT 'DROP PROCEDURE ' || owner || '.' || OBJECT_NAME || ';' || chr(10)
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = '$schemaName'
+       and UPPER(OBJECT_TYPE) = 'PROCEDURE'
+UNION ALL
+SELECT 'DROP FUNCTION ' || owner || '.' || OBJECT_NAME || ';' || chr(10)
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = '$schemaName'
+       and UPPER(OBJECT_TYPE) = 'FUNCTION'
+
+UNION ALL
+
+
+--
+-- packages
+--
+
+SELECT 'DROP PACKAGE ' || owner || '.' || OBJECT_NAME || ';' || chr(10)
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = '$schemaName'
+       and UPPER(OBJECT_TYPE) = 'PACKAGE'
+
+UNION ALL
+
+
+--
+-- sequences
+--
+
+SELECT 'DROP SEQUENCE ' || sequence_owner || '.' || sequence_name || ';' || chr(10)
+FROM all_sequences
+where sequence_owner = '$schemaName'
+
+UNION ALL
+
+
+--
+-- indexes : supprimés avec les constraints ci-dessous
+--
+
+-- SELECT 'DROP INDEX ' || owner || '.' || index_name || ';' || chr(10)
+-- FROM   all_indexes
+-- WHERE  owner = '$schemaName'
+--
+-- UNION ALL
+
+
+--
+-- constraints
+--
+
+-- d'abord les FK
+select 'ALTER TABLE ' || OWNER || '.' || table_name || ' drop CONSTRAINT ' || constraint_name || ';' || chr(10)
+from all_constraints
+where constraint_type = 'R'
+      and owner = '$schemaName'
+union all
+-- ensuite les PK
+select 'ALTER TABLE ' || OWNER || '.' || table_name || ' drop CONSTRAINT ' || constraint_name || ';' || chr(10)
+from all_constraints
+where constraint_type = 'P'
+      and owner = '$schemaName'
+
+UNION ALL
+
+
+--
+-- tables
+--
+
+SELECT 'DROP TABLE ' || owner || '.' || table_name || ' PURGE;' || chr(10)
+FROM   all_tables
+WHERE  owner = '$schemaName' and
+       table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées
+-- UNION ALL
+-- select 'PURGE RECYCLEBIN;'
+-- FROM   all_tables
+-- WHERE  owner = '$schemaName'
+-- and rownum = 1
+
+EOS;
+    }
+
+    /**
+     * @return string
+     */
+    function generateSQLForDBMSMetadataPackageConfiguration()
+    {
+        return <<<EOS
+--
+-- DBMS_METADATA config
+--
+
+begin
+  DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM, 'PRETTY',        true); -- formatting the output with indentation and line feeds ?
+  DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM, 'SQLTERMINATOR', true); -- appending a SQL terminator (; or /) to each DDL statement ?
+  --
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.SESSION_TRANSFORM, 'CONSTRAINTS_AS_ALTER', false); --
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.SESSION_TRANSFORM, 'CONSTRAINTS',          true);  -- including non-referential table constraints in the CREATE TABLE statement ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.SESSION_TRANSFORM, 'REF_CONSTRAINTS',      false); -- including referential constraints (foreign keys) in the CREATE TABLE statement ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'FORCE',                true);  -- using the FORCE keyword in the CREATE VIEW statement ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'TABLESPACE',           false); -- including tablespace clauses in the DDL ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'SEGMENT_ATTRIBUTES',   false); -- including segment attributes clauses (physical attributes, storage attributes, tablespace, logging) in the DDL ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'STORAGE',              false); -- including storage clauses in the DDL ?
+end;
+
+EOS;
+    }
+
+    /**
+     * @param string $schemaName
+     * @return string
+     */
+    function generateSQLForSchemaCreation($schemaName)
+    {
+        return <<<EOS
+--
+-- sequences
+--
+
+SELECT DBMS_METADATA.GET_DDL ('SEQUENCE', sequence_name, sequence_owner) as sql
+FROM all_sequences
+where sequence_owner = '$schemaName'
+
+UNION ALL
+
+
+--
+-- tables
+--
+
+SELECT DBMS_METADATA.get_ddl ('TABLE', table_name, owner) as sql
+FROM   all_tables
+WHERE  owner = '$schemaName' and
+  table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées
+
+UNION ALL
+
+
+--
+-- constraints : unique
+--
+
+SELECT DBMS_METADATA.get_ddl ('CONSTRAINT', constraint_name, owner) as sql
+from user_constraints
+WHERE constraint_type in ('U') and -- unique type
+      index_name is null and -- écarte les contraintes liées automatiquement à un index car créées avec la table
+      table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées
+      and owner = '$schemaName'
+
+UNION ALL
+
+
+--
+-- indexes
+--
+
+SELECT DBMS_METADATA.get_ddl ('INDEX', index_name, owner) as sql
+FROM   all_indexes i
+WHERE  not exists (select * from user_constraints where index_name = i.index_name) -- écarte les index créés automatiquement car liés à une contrainte 
+  and owner = '$schemaName'
+
+--   select * from all_indexes WHERE  owner = '$schemaName';
+
+UNION ALL
+
+
+--
+-- packages
+--
+
+SELECT DBMS_METADATA.get_ddl ('PACKAGE_SPEC', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = '$schemaName'
+       and UPPER(OBJECT_TYPE) = 'PACKAGE'
+
+UNION ALL
+
+
+--
+-- procedures and functions
+--
+
+SELECT DBMS_METADATA.get_ddl ('PROCEDURE', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = '$schemaName'
+       and UPPER(OBJECT_TYPE) = 'PROCEDURE'
+UNION ALL
+SELECT DBMS_METADATA.get_ddl ('FUNCTION', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = '$schemaName'
+       and UPPER(OBJECT_TYPE) = 'FUNCTION'
+
+UNION ALL
+
+
+--
+-- packages
+--
+
+SELECT DBMS_METADATA.get_ddl ('PACKAGE_BODY', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = '$schemaName'
+       and UPPER(OBJECT_TYPE) = 'PACKAGE BODY'
+
+UNION ALL
+
+
+--
+-- triggers
+--
+
+SELECT DBMS_METADATA.get_ddl ('TRIGGER', trigger_NAME, owner) as sql
+FROM   ALL_TRIGGERS
+WHERE  owner = '$schemaName'
+
+UNION ALL
+
+
+--
+-- views
+--
+
+SELECT DBMS_METADATA.get_ddl ('VIEW', view_name, owner) as sql
+FROM   all_views
+WHERE  owner      = '$schemaName'
+
+UNION ALL
+
+
+--
+-- materialized views
+--
+
+SELECT DBMS_METADATA.get_ddl ('MATERIALIZED_VIEW', mview_name, owner) as sql
+FROM   all_mviews
+WHERE  owner      = '$schemaName'
+
+UNION ALL
+
+
+--
+-- data inserts
+--
+
+--
+-- [...]
+--
+
+
+--
+-- constraints
+--
+
+--select DBMS_METADATA.GET_DDL('CONSTRAINT', constraint_name, owner) as sql
+--from all_constraints
+--where owner = '$schemaName'
+--      and constraint_type = 'P'
+--union all
+select DBMS_METADATA.GET_DDL('REF_CONSTRAINT', constraint_name, owner) as sql
+from all_constraints
+where owner = '$schemaName'
+      and constraint_type = 'R'
+
+
+EOS;
+
+    }
+}
\ No newline at end of file

src/UnicaenOracle/Service/scripts/clear_schema_ddl.sql

+
+--
+-- triggers
+--
+
+SELECT 'DROP TRIGGER ' || owner || '.' || trigger_NAME || ';' || chr(10)
+FROM   ALL_TRIGGERS
+WHERE  owner = 'SYGAL_TEST'
+
+UNION ALL
+
+
+--
+-- views
+--
+
+SELECT 'DROP VIEW ' || owner || '.' || view_name || ';' || chr(10)
+FROM   all_views
+WHERE  owner      = 'SYGAL_TEST'
+
+UNION ALL
+
+
+--
+-- materialized views
+--
+
+SELECT 'DROP MATERIALIZED VIEW ' || owner || '.' || mview_name || ';' || chr(10)
+FROM   all_mviews
+WHERE  owner = 'SYGAL_TEST'
+
+UNION ALL
+
+
+--
+-- procedures and functions
+--
+
+SELECT 'DROP PROCEDURE ' || owner || '.' || OBJECT_NAME || ';' || chr(10)
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = 'SYGAL_TEST'
+       and UPPER(OBJECT_TYPE) = 'PROCEDURE'
+UNION ALL
+SELECT 'DROP FUNCTION ' || owner || '.' || OBJECT_NAME || ';' || chr(10)
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = 'SYGAL_TEST'
+       and UPPER(OBJECT_TYPE) = 'FUNCTION'
+
+UNION ALL
+
+
+--
+-- packages
+--
+
+SELECT 'DROP PACKAGE ' || owner || '.' || OBJECT_NAME || ';' || chr(10)
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = 'SYGAL_TEST'
+       and UPPER(OBJECT_TYPE) = 'PACKAGE'
+
+UNION ALL
+
+
+--
+-- sequences
+--
+
+SELECT 'DROP SEQUENCE ' || sequence_owner || '.' || sequence_name || ';' || chr(10)
+FROM all_sequences
+where sequence_owner = 'SYGAL_TEST'
+
+UNION ALL
+
+
+--
+-- indexes : supprimés avec les constraints ci-dessous
+--
+
+-- SELECT 'DROP INDEX ' || owner || '.' || index_name || ';' || chr(10)
+-- FROM   all_indexes
+-- WHERE  owner = 'SYGAL_TEST'
+--
+-- UNION ALL
+
+
+--
+-- constraints
+--
+
+-- d'abord les FK
+select 'ALTER TABLE ' || OWNER || '.' || table_name || ' drop CONSTRAINT ' || constraint_name || ';' || chr(10)
+from all_constraints
+where constraint_type = 'R'
+      and owner = 'SYGAL_TEST'
+union all
+-- ensuite les PK
+select 'ALTER TABLE ' || OWNER || '.' || table_name || ' drop CONSTRAINT ' || constraint_name || ';' || chr(10)
+from all_constraints
+where constraint_type = 'P'
+      and owner = 'SYGAL_TEST'
+
+UNION ALL
+
+
+--
+-- tables
+--
+
+SELECT 'DROP TABLE ' || owner || '.' || table_name || ' PURGE;' || chr(10)
+FROM   all_tables
+WHERE  owner = 'SYGAL_TEST' and
+       table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées
+-- UNION ALL
+-- select 'PURGE RECYCLEBIN;'
+-- FROM   all_tables
+-- WHERE  owner = 'SYGAL_TEST'
+-- and rownum = 1
+
+;

src/UnicaenOracle/Service/scripts/config_dbms_metadata.sql

+--
+-- DBMS_METADATA config
+--
+
+begin
+  DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM, 'PRETTY',        true); -- formatting the output with indentation and line feeds ?
+  DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM, 'SQLTERMINATOR', true); -- appending a SQL terminator (; or /) to each DDL statement ?
+  --
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.SESSION_TRANSFORM, 'CONSTRAINTS_AS_ALTER', false);
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.SESSION_TRANSFORM, 'CONSTRAINTS',          true);  -- including non-referential table constraints in the CREATE TABLE statement ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.SESSION_TRANSFORM, 'REF_CONSTRAINTS',      false); -- including referential constraints (foreign keys) in the CREATE TABLE statement ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'FORCE',                true);  -- using the FORCE keyword in the CREATE VIEW statement ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'TABLESPACE',           false); -- including tablespace clauses in the DDL ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'SEGMENT_ATTRIBUTES',   false); -- including segment attributes clauses (physical attributes, storage attributes, tablespace, logging) in the DDL ?
+  DBMS_METADATA.set_transform_param(DBMS_METADATA.session_transform, 'STORAGE',              false); -- including storage clauses in the DDL ?
+end
+;

src/UnicaenOracle/Service/scripts/generate_schema_ddl.sql

+--
+-- sequences
+--
+
+SELECT DBMS_METADATA.GET_DDL ('SEQUENCE', sequence_name, sequence_owner) as sql
+FROM all_sequences
+where sequence_owner = 'SYGAL'
+
+UNION ALL
+
+
+--
+-- tables
+--
+
+SELECT DBMS_METADATA.get_ddl ('TABLE', table_name, owner) as sql
+FROM   all_tables
+WHERE  owner = 'SYGAL' and
+  table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées
+
+UNION ALL
+
+
+--
+-- constraints : not null, unique
+--
+
+SELECT DBMS_METADATA.get_ddl ('CONSTRAINT', constraint_name, owner) as sql
+from user_constraints
+WHERE constraint_type in ('U') and
+      index_name is null and -- écarte les contraintes liées automatiquement à un index car créées avec la table
+      table_name not in (select mview_name from all_mviews) -- exclusion des tables liées à des vues matérialisées
+      and owner = 'SYGAL'
+
+-- select * from user_constraints WHERE  owner = 'SYGAL';
+
+UNION ALL
+
+
+--
+-- indexes
+--
+
+SELECT DBMS_METADATA.get_ddl ('INDEX', index_name, owner) as sql
+FROM   all_indexes i
+WHERE  not exists (select * from user_constraints where index_name = i.index_name) -- écarte les index créés automatiquement car liés à une contrainte
+  and owner = 'SYGAL'
+
+--   select * from all_indexes WHERE  owner = 'SYGAL';
+
+UNION ALL
+
+
+--
+-- packages
+--
+
+SELECT DBMS_METADATA.get_ddl ('PACKAGE_SPEC', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = 'SYGAL'
+       and UPPER(OBJECT_TYPE) = 'PACKAGE'
+
+UNION ALL
+
+
+--
+-- procedures and functions
+--
+
+SELECT DBMS_METADATA.get_ddl ('PROCEDURE', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = 'SYGAL'
+       and UPPER(OBJECT_TYPE) = 'PROCEDURE'
+UNION ALL
+SELECT DBMS_METADATA.get_ddl ('FUNCTION', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = 'SYGAL'
+       and UPPER(OBJECT_TYPE) = 'FUNCTION'
+
+UNION ALL
+
+
+--
+-- packages
+--
+
+SELECT DBMS_METADATA.get_ddl ('PACKAGE_BODY', OBJECT_NAME, owner) as sql
+FROM   SYS.ALL_OBJECTS
+WHERE  owner = 'SYGAL'
+       and UPPER(OBJECT_TYPE) = 'PACKAGE BODY'
+
+UNION ALL
+
+
+--
+-- triggers
+--
+
+SELECT DBMS_METADATA.get_ddl ('TRIGGER', trigger_NAME, owner) as sql
+FROM   ALL_TRIGGERS
+WHERE  owner = 'SYGAL'
+
+UNION ALL
+
+
+--
+-- views
+--
+
+SELECT DBMS_METADATA.get_ddl ('VIEW', view_name, owner) as sql
+FROM   all_views
+WHERE  owner      = 'SYGAL'
+
+UNION ALL
+
+
+--
+-- materialized views
+--
+
+SELECT DBMS_METADATA.get_ddl ('MATERIALIZED_VIEW', mview_name, owner) as sql
+FROM   all_mviews
+WHERE  owner      = 'SYGAL'
+
+UNION ALL
+
+
+--
+-- data inserts
+--
+
+--
+-- [...]
+--
+
+
+--
+-- constraints
+--
+
+select DBMS_METADATA.GET_DDL('CONSTRAINT', constraint_name, owner) as sql
+from all_constraints
+where owner = 'SYGAL'
+      and constraint_type = 'P'
+union all
+select DBMS_METADATA.GET_DDL('REF_CONSTRAINT', constraint_name, owner) as sql
+from all_constraints
+where owner = 'SYGAL'
+      and constraint_type = 'R'