ADELIA |
|
|
|
|
(I/B) |
|
|
|
|
Attention : cet ordre doit être 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_TAB Table;MotDirecteur Longueur;NbDécimales TypeNumérique Dimension1;Dimension2 Paramètre
DECLARER_TAB Table;MotDirecteur Type Dimension1;Dimension2 Paramètre
MotDirecteur |
Þ |
MotDirecteur | Rien |
NbDécimales |
Þ |
Entier | Rien |
Dimension2 |
Þ |
Entier | Rien |
Paramètre |
Þ |
*NODEF | Rien |
Type |
Þ |
L | T | Z | * |
TypeNumérique |
Þ |
B | I | U |
Description
Cet ordre permet de déclarer une table.
Il faut préciser :
-
le nom de la table,
le mot directeur de la table,
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,
éventuellement le type de numérique (B pour binaire, I pour entier, U pour entier non signé),
la dimension de la table (le produit Dimension1 * Dimension2 doit être inférieur ou égal à 32767),
*NODEF pour que cette définition ne soit pas générée dans le L3G.
Remarques :
- 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
DECLARER_TAB WTABLE;W_TABLE 15;2 10
DECLARER_TAB WTABL2;W_TABLE_2 5;0 10;15
*
J = 1
I = 0
TANT_QUE I < 10
I = I + 1
W_TABLE(I) = W_TABLE_2(I,J)
REFAIRE