Tables du référentiel ARCAD
Objectif :
Le référentiel ARCAD repose sur différentes tables qu’il peut être intéressant de connaitre afin de pouvoir lancer des extractions directement par SQL.
Voici quelques exemples d’utilisation de ces tables.
Mise en garde :
Ces tables de doivent jamais être mises à jour en dehors d’Arcad.
C’est impératif car toute modification risquerait d’entrainer des altérations de l’intégrité du référentiel Arcad.
N’utilisez ces tables qu’en consultation uniquement.
Remarque :
En 5250 le contenu de certaines de colonnes extraites peut ne pas être lisible directement.
Ceci est lié au CCSID des données stockées dans les tables Arcad.
Pour palier à cela, il faut :
- Changer le CCSID de la session 5250 avec la commande : CHGJOB CCSID(297)
- Lancer SQL : STRSQL
- Exécuter la requête
Table des applications : ARCAD_PRD.AARCAPPF1
Lister les applications (en excluant les applications de démonstration ARCAD)
SELECT CAST(APP_CAPP AS CHAR(5) CCSID 297)
FROM ARCAD_PRD.AARCAPPF1
WHERE CAST(APP_CAPP AS CHAR(5) CCSID 297) NOT IN(‘SAM’, ‘SAMCO’)
ORDER BY APP_CAPP;
Table des bibliothèques opérationnelles des applications : ARCAD_PRD.AARCLOIF1
Lister les bibliothèques opérationnelles des applications (en excluant les applications de démonstration ARCAD)
SELECT DISTINCT CAST(A.APP_CAPP AS CHAR(5) CCSID 297) AS APPLICATION,
CAST(B.LOI_JLIB AS CHAR(10) CCSID 297) AS BIBLIOTHEQUE
FROM ARCAD_PRD.AARCAPPF1 A
LEFT JOIN ARCAD_PRD.AARCLOIF1 B
ON B.LOI_ILOL = A.APP_ILOL
WHERE CAST(APP_CAPP AS CHAR(5) CCSID 297) NOT IN(‘SAM’, ‘SAMCO’)
AND CAST(B.LOI_JLIB AS CHAR(10) CCSID 297) IS NOT NULL
AND CAST(B.LOI_JLIB AS CHAR(10) CCSID 297) NOT IN(‘*NONE’, ‘*LIBL’);
Table des bibliothèques logicielles des applications : ARCAD_PRD.AARCLBLF1
Lister les bibliothèques logicielles de l’application mon_application pour l’environnement mon_environnement
SELECT *
FROM ARCAD_PRD.AARCLBIF1
WHERE LBI_ILBL = (
SELECT ENV_ILBL
FROM ARCAD_PRD.AARCENVF1
WHERE ENV_CAPP = ‘mon_application’
AND ENV_CENV = ‘mon_environnement’);
Table des versions : ARCAD_PRD.AARMVERF1
Lister les versions ouvertes de l’application mon_application
SELECT VER_CAPP, VER_CVER, VER_CTXT, VER_JLIB
FROM ARCAD_PRD.AARMVERF1
WHERE VER_CAPP = ‘mon_application’
AND VER_TPRDD = 0
ORDER BY VER_CAPP, VER_CVER;
Lister les versions ouvertes utilisant la bibliothèque ma_bibliotheque
SELECT A.LBI_JLIB AS BIB_RECHERCHEE,
B.VER_JLIB AS BIB_VERSION
FROM ARCAD_PRD.AARCLBIF1 A
LEFT JOIN ARCAD_PRD.AARMVERF1 B
ON B.VER_ILBI = A.LBI_ILBL
WHERE UPPER(A.LBI_JLIB) = UPPER(‘ma_bibliotheque’)
AND VER_TPRDD = 0;
Table du référentiel de composants : ARCAD_PRD.AARDREPF1
Lister les composants de type *PGM de l’application mon_application
SELECT DISTINCT REP_CAPP, REP_JOBJ, REP_CTYPE, REP_CXTYPE, REP_CTXT
FROM ARCAD_PRD.AARDREPF1
WHERE REP_CAPP = ‘mon_application’
AND REP_CXTYPE = ‘*PGM’
ORDER BY REP_JOBJ, REP_CTYPE;
Table du référentiel de champs : ARCAD_PRD.AARDFLRF1
Lister les champs utilisés dans l’application mon_application
SELECT DISTINCT
FLR_CAPP AS APPLICATION,
FLR_JOBJ AS COMPOSANT,
FLR_CTYPE AS TYPE_COMPOSANT,
FLR_JFLD AS CHAMP,
FLR_NLEN AS LONGUEUR,
FLR_CFLDTY AS TYPE_CHAMP,
FLR_CTXT AS TEXTE_CHAMP
FROM ARCAD_PRD.AARDFLRF1
WHERE FLR_CAPP = ‘mon_application’;
Liste des composants d'une version : ARCAD_PRD.AARMMSOF1
Lister des composants dans la version ma_version de l’application mon_application.
Exemple pour la version V 1.01.A de l’application APP :
SELECT MSO_CAPP AS APPLICATION,
MSO_CVER AS VERSION,
MSO_JOBJ AS COMPOSANT,
MSO_CXTYPE AS TYPE,
MSO_CTYPE AS ATTRIBUT,
MSO_JSRCF AS FICHIER_SOURCE,
MSO_CTXT AS DESIGNATION,
MSO_CTMAJ AS TYPE_MAJ,
MSO_TUPDT AS DATE_MAJ,
MSO_TCRTT AS DATE_CREA
FROM ARCAD_PRD.AARMMSOF1
WHERE MSO_CAPP = ‘APP’
AND MSO_CVER = ‘V 1.01.A’;
Lister des composants dans la version ma_version via la liste LSTOBJ.
La liste LSTOBJ est générée dans la bibliothèque de version lors du contrôle de version.
SELECT LST_JOBJ AS OBJETS,
LST_CTYPE AS TYPES,
LST_CATR AS ATTRIBUTS
FROM ma_bibliotheque_de_version.LSTOBJ
ORDER BY LST_CTYPE, LST_JOBJ;
Liste des versions contenant un composant donné : ARCAD_PRD.AARMMSOF1
Lister les version contenant un composant donné : mon_composant.
SELECT MSO_CAPP AS APPLICATION,
MSO_CVER AS VERSION,
MSO_JOBJ AS COMPOSANT,
MSO_CXTYPE AS TYPE,
MSO_CTYPE AS ATTRIBUT,
MSO_JSRCF AS FICHIER_SOURCE,
MSO_CTXT AS DESIGNATION,
MSO_CTMAJ AS TYPE_MAJ,
MSO_TUPDT AS DATE_MAJ,
MSO_TCRTT AS DATE_CREA
FROM ARCAD_PRD.AARMMSOF1
WHERE MSO_JOBJ = ‘mon_composant‘;