ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (S) |
(B) (S) |
(I/B) (S) |
(B) (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) | *COND(:InstructionSQL) |
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 ainsi que les éventuelles zones de tri).
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.
La condition peut aussi être contenue dans une variable alphanumérique ou dans une instruction SQL déclarée au préalable via l'ordre INSTRUCTION SQL. et doit contenir la partie "where" d'une requête SQL.
Attention : Dans ces cas il faut indiquer les noms réels des colonnes (et non pas les noms Adélia).
Après exécution de l'ordre, il est possible de tester le code retour SQL à l'aide du mot réservé *SQLCODE.
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)