Pour alimenter le fichier des fichiers Adélia Studio à partir du fichier des fichiers AS/400, il faut commencer par constituer ce dernier sur l'AS/400.
Procéder comme suit :
- Dans un fichier source IBM (créé par la commande CRTSRCPF), créer les enregistrements du fichier en respectant la syntaxe du fichier Adélia.
Ceci peut se faire soit en écrivant un programme, soit en utilisant la commande CPYF et en ajoutant manuellement les séparateurs ("," et ";") dans l'Editeur de sources SEU. - Ensuite, créer une macro-instruction sur AS/400.
- Dans l'Editeur de sources SEU, copier le membre du fichier créé précédemment comme texte de la macro-instruction.
Exemple :
- Créer le fichier source : CRTSRCPF QGPL/QSOURCE
- Ajouter un membre source : ADDPFM FILE(QGPL/QSOURCE) MBR(MBRSRC)
Dans le cas d'une utilisation du fichier des fichiers de la base de connaissances, il faut créer un programme (en Adélia) qui, pour chaque enregistrement du fichier FICHIEP, crée une ligne source avec les champs FI_NOM_FICHIER, FI_COD_PREFIX, FI_LIB_FICHIER respectant la syntaxe suivante :
<FI_NOM_FICHIER>,<FI_COD_PREFIXE>,<FI_LIB_FICHIER>;- Avant d'exécuter le programme, ne surtout pas oublier d'exécuter :
OVRDBF FILE(QSOURCE) TOFILE(QGPL/QSOURCE) MBR(MBRSRC)
- Puis, dans un environnement Adélia, créer une macro-instruction (par exemple MAC_001).
- Enfin, dans l'Editeur de sources SEU, copier le membre source en indiquant :
Source : |
MBRSRC |
Type de source : |
QSOURCE |
Bibliothèque : |
QGPL |
Il faut ensuite procéder à la récupération de ce fichier sous Adélia Studio.