PLACER_TABLE

Paragraphe d'utilisation

Tous

Syntaxe

PLACER_TABLE Table IdVar

PLACER_TABLE IdVar Table

PLACER_TABLE Table Table

PLACER_TABLE ConstanteAlpha Table

Description

Les mouvements suivants peuvent être effectués :

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')

↑ Haut de page