QSYS2.GENERATE_SQL_OBJECTS

À quoi ça sert

Contrairement à QSYS2.GENERATE_SQL, qui traite des objets désignés par un nom et un type, cette procédure reçoit en entrée une table qui contient la liste des objets à traiter (schéma, nom et type SQL : TABLE, VIEW, INDEX, ALIAS). Le nom de cette table se donne dans SYSTEM_TABLE_NAME et sa bibliothèque dans SYSTEM_TABLE_SCHEMA (par défaut QTEMP).

Le DDL produit est classé dans un ordre qui permet de rejouer le script : une vue arrive après les tables dont elle dépend. C'est l'intérêt principal pour recréer une application complète ailleurs. Le résultat va dans un membre de fichier source (Q_GENSQOBJ de QTEMP par défaut) ou dans un fichier de flux.

Les options de génération sont les mêmes que pour GENERATE_SQL : remplacement, suppression préalable, contraintes, déclencheurs, privilèges, commentaires, libellés, qualification des noms, formats de date et d'heure, etc. L'exemple d'IBM construit la liste des objets d'une bibliothèque à partir du catalogue, puis appelle la procédure avec QUALIFIED_NAME_OPTION => '1'.

Résultat réel sur un IBM i 7.5

Procédure non exécutée sur notre IBM i de test : elle agit sur la configuration du système ou sur d'autres travaux.

L'exemple d'IBM

Générer des instructions DDL ordonnées pour tous les objets fichier de la bibliothèque MYLIB.

-- Description: Generate ordered DDL statements for all file objects in MYLIB 
  -- First create the table to contain the list of objects. 
 CREATE TABLE QTEMP.INORDER (OBJECT_SCHEMA VARCHAR(258),  OBJECT_NAME VARCHAR(258),  SQL_OBJECT_TYPE CHAR(10));
 -- Now populate the table with objects from a schema. Omit system objects. 
 INSERT INTO qtemp.inorder(object_schema, object_name,     sql_object_type)   SELECT 'MYLIB', dbxfil,     CASE       WHEN dbxatr = 'AL' THEN 'ALIAS'       WHEN dbxatr = 'IX' THEN 'INDEX'       WHEN dbxatr IN ('TB', 'MQ', 'PF') THEN 'TABLE'       WHEN dbxatr IN ('VW', 'LF') THEN 'VIEW'        ELSE dbxatr     END   FROM qsys.qadbxfil f   WHERE dbxlb2 = 'MYLIB' AND         dbxatr IN ('AL','IX','TB','MQ','PF','VW','LF') AND         dbxrel = 'Y' AND         dbxlfi NOT LIKE 'QIDCT%' AND         dbxlfi NOT IN ('SYSCHKCST', 'SYSCOLUMNS', 'SYSCST', 'SYSCSTCOL',        'SYSCSTDEP', 'SYSFIELDS', 'SYSINDEXES', 'SYSKEYCST', 'SYSKEYS',        'SYSPACKAGE', 'SYSREFCST', 'SYSTABLEDEP', 'SYSTABLES', 'SYSTRIGCOL',        'SYSTRIGDEP', 'SYSTRIGGERS', 'SYSTRIGUPD', 'SYSVIEWDEP', 'SYSVIEWS'); 
 -- Generate the ordered DDL 
 CALL QSYS2.GENERATE_SQL_OBJECTS(SYSTEM_TABLE_NAME=>'INORDER',  SYSTEM_TABLE_SCHEMA=>'QTEMP',  QUALIFIED_NAME_OPTION=>'1');

Paramètres