ADELIA |
VADELIA |
SADELIA |
WADELIA |
MADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(I) (C/S) |
Paragraphe d'utilisation
Tous
Syntaxe
PLACER_TABLE Table IdVar
PLACER_TABLE IdVar Table
PLACER_TABLE Table Table
PLACER_TABLE 'Constante' Table
Description
Les mouvements suivants peuvent être effectués :
- Table |
→ |
Variable |
- Variable |
→ |
Table |
- Table |
→ |
Table |
- Constante |
→ |
Table |
Les deux paramètres de cet ordre doivent être alphanumériques.
Le déplacement de la donnée commence avec le premier poste de la table si la table n'est pas indexée, ou avec le poste spécifié si la table est indexée.
Le déplacement de la donnée se termine quand le nombre de caractères déplacés est égal à la longueur la plus courte entre le premier et le deuxième paramètre de l'ordre.
Le déplacement peut se terminer au milieu d'un poste de table.
Important : cette instruction travaille sur l'ensemble de la table et non sur un poste particulier de la table. Dans le cas où l'on veut travailler sur un poste particulier, on utilise l'affectation classique :
I = 5
TBL(I) = valeur ou bien TBL(5) = valeur
Si l'on désire affecter une même valeur à chacun des postes d'une table, il faut utiliser l'affectation :
TBL = valeur
Si l'on désire faire une affectation poste à poste entre deux tableaux de même dimension, il faut plutôt utiliser l'affectation :
TBL1 = TBL2
Par exemple
* Supposons que TBL_JOURS est un tableau de 7 éléments (de chacun 3 car.)
TBL_JOURS = *BLANK
PLACER_TABLE 'LunMarMerJeuVenSamDim' TBL_JOURS
*
* ce qui peut aussi être écrit comme suit :
J = 1
PLACER_TABLE 'LunMarMerJeuVenSamDim' TBL_JOURS(J)
*
* Alimenter seulement une partie du tableau (à partir de l'élément n° 4)
J = 4
PLACER_TABLE 'JeuVenSamDim' TBL_JOURS(J)
*
PLACER_TABLE TBL_JOURS(1) ZONE_TRAVAIL
(la zone de travail est alors égale à 'LunMarMerJeuVenSamDim')
*
ZONE_TRAVAIL = *BLANK
PLACER_TABLE TBL_JOURS(3) ZONE_TRAVAIL
(la zone de travail est alors égale à 'MerJeuVenSamDim ')
*
ZONE_TRAVAIL = 'AAABBBCCCDDDEEEFFFGGG'
PLACER_TABLE TBL_JOURS(3) ZONE_TRAVAIL
(la zone de travail est alors égale à 'MerJeuVenSamDimFFFGGG')