Téléchargement des produits


Version anglaise


 

 

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

 

↑ Haut de page


  • Aucune étiquette