Téléchargement des produits


Version anglaise


 

 

ADELIA

      

      

      

      

(I/B)

 

 

 

 

 

Attention : cet ordre est utilisé dans la définition d'une macro-instruction, d'un type de dialogue ou d'une règle de gestion. Il est accepté dans Visual Adélia ou Adélia Web s'il est placé dans une règle de gestion dont le type de source est compatible ADELIA.

 

Paragraphe d'utilisation

Tous

 

Syntaxe

DECLARER IdVar;MotDirecteur Longueur;NbDécimales TypeNumérique NbPostes Paramètre

DECLARER IdVar;MotDirecteur ;MotDirecteurRéférence

DECLARER IdVar;MotDirecteur Type

 

MotDirecteur

Þ

MotDirecteur | Rien

     

NbDécimales

Þ

Entier | Rien

     

NbPostes

Þ

Entier | Rien

     

Paramètre

Þ

*NODEF | Rien

     

Type

Þ

L | T | Z | *

     

TypeNumérique

Þ

B | I | U | Rien



Description

Cet ordre permet de déclarer une variable de travail.

Il faut préciser :

    • le nom de la variable,

    • le mot directeur de la variable,

    • sa longueur ou son type (L pour une zone de type DATE, T pour une zone de type TIME, Z pour une zone de type TIMESTAMP, * pour pointeur),

    • éventuellement son nombre de décimales,

    • ou le mot directeur de la variable servant de référence pour la longueur de la variable à déclarer,

    • éventuellement le type de numérique (B pour binaire, I pour entier, U pour entier non signé),

    • le nombre de postes pour déclarer une table version 4 (pour déclarer une table, il est recommandé d'utiliser l'ordre DECLARER_TAB),

    • *NODEF pour que cette définition ne soit pas générée dans le L3G.

Remarques :

- Il est également possible d'utiliser l'ordre DCL.

- Si la variable est déjà déclarée avec les mêmes caractéristiques, elle n'est pas redéfinie.

- La déclaration des types DATE, TIME et TIMESTAMP, ENTIER, ENTIER NON SIGNE et POINTEUR est uniquement compatible avec le générateur RPG.

 

Par exemple

* Règle de gestion pour lister/sélectionner les clients

*

DECLARER PCOCLI;P_CODE_CLIENT 10;0

DECLARER PCORET;P_CODE_RETOUR 1

DECLARER WCOCLI;W_CODE_CLIENT ;P_CODE_CLIENT

GUIDE $$CODE

P_CODE_CLIENT = *BLANK

P_CODE_RETOUR = *BLANK

APPELER FENETRE_CLIENT P_CODE_CLIENT P_CODE_RETOUR

SI P_CODE_CLIENT <> *BLANK ET P_CODE_RETOUR = *BLANK

$$CODE = P_CODE_CLIENT

FIN

FIN_GUIDE

 

Voir aussi la liste des ordres L4G par thème

↑ Haut de page

  • Aucune étiquette