ADELIA |
VADELIA |
SADELIA |
WADELIA |
MADELIA |
(I/B) |
(I/B) (S) |
(B) (S) |
(I/B) (S) |
(I) (S) |
Attention :
- Dans le cas des programmes de type ADELIA, cet ordre est uniquement compatible avec le générateur RPG.
- Cet ordre ne peut être utilisé que dans un bloc serveur, et non dans un bloc client.
Paragraphe d'utilisation
Tous
Syntaxe
CHARGER_SQL_LST NomListe SuiteEntités Distinct Condition TriDeZones
SuiteEntités |
→ |
SuiteEntités, Entité | Entité |
Entité |
→ |
NomEntité NomCorrélation | NomEntité |
Distinct |
→ |
*DISTINCT | Rien |
Condition |
→ |
ConditionAdélia | *COND(:IdVar) |
Description
Cet ordre lit la ou les entités SuiteEntités en respectant la condition Condition (facultative), et met les valeurs des champs de la (ou des) entité(s) dans les champs de la liste NomListe, pour les champs de la liste ayant le même nom que les champs des entités.
Si *DISTINCT est précisé, seules les lignes distinctes sont chargées (par rapport à l'ensemble des colonnes de la liste ayant le même nom que les champs des entités).
La lecture peut être faite suivant un ordre sur certaines zones, déterminé par l'élément TriDeZones.
Cliquez ici pour l'explication de l'élément TriDeZones.
Attention : lorsque la Condition est contenue dans une variable *COND(:IdVar), la variable doit contenir la partie "where" d'une requête SQL, où il faut indiquer les noms réels des colonnes et des tables (et non pas les noms Adélia).
Par exemple
* Charge la liste des clients dans la liste LSTCLI
CHARGER_SQL_LST LSTCLI CLIENTS *COND(CLI_PAYS = :WPAYS) *TRI(CLI_NOM)
WREQUETE = 'CLPAY=' 'FRANCE' ' OR CLPAY=' 'USA' ' '
CHARGER_SQL_LST LSTCLI CLIENTS *COND(:WREQUETE) *TRI(CLI_NOM)
* Dans le pavé DECL PGM
* Déclaration d'une liste (syntaxe Visual Adélia) avec les noms des zones fichiers qu'elle contiendra
LISTE LST_PROD PCOD_COM PCOD_PRO PTYP_PRO PPRIX
...
CHARGER_SQL_LST LST_PROD PRODUIT *COND(PCOD_PRO COMMENCE_PAR :ZCOD_PRO)
* Dans le pavé DECL PGM
* Déclaration d'une liste (syntaxe Adélia) avec les noms des zones fichiers qu'elle contiendra
DECL LISTE LST_PROD PCOD_COM PCOD_PRO PTYP_PRO PPRIX
...
CHARGER_SQL_LST LST_PROD PRODUIT *COND(PCOD_PRO COMMENCE_PAR :ZCOD_PRO)