Discussion :

[Picho]

Bonjour à tous,

Je cherche à éclater un chaine dans un tableau indexé et je n'arrive pas à trouver une solution à mon probleme pourtant je sens que la solution est toute bête

Je cherche à découper motSaisi dans motSaisiTablo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
       77 motSaisi pic X(25) value " ".
       01 motSaisiTab.
        02 motSasiiTablo pic X occurs 25 value " ".

       accept motSaisi.

       ...

Merci d'avance

[Hédhili Jaïdane]

Bonjour.

Essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
       01 motSaisi pic X(25) value " ".
       01 motSaisiTab redefines motSaisi.
        02 motSasiiTablo pic X occurs 25.

       accept motSaisi.

       ...

Si motSaisi = ABCDEF......Y,
motSasiiTablo (1) = A
motSasiiTablo (2) = B
motSasiiTablo (3) = C
....
motSasiiTablo (25) = Y

[el_slapper]

+1 avec la réponse ci-dessus. En fait, dans le code initial, il n'y a pas de lien entre motSaisi et motSaisiTab. Dont, le tableau reste vide. Ce qui est fait en plus dans le code de Hédhili Jaïdane est le REDEFINES, qui fait pointer les 2 variables sur le même contenu. C'est la solution la plus élégante, en ce sens qu'elle ne nécéssite pas d'ordre additionnel. Maintenant, il n'est pas forcément possible de la pratiquer, suivant que motSaisi est à ta main ou non(il pourrait être défini dans une COPY appartenant à une autre équipe, par exemple)

Dans ce cas, d'autres solutions pourraient être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
accept motSaisi
move motSaisi to accept motSaisiTab

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
accept motSaisi
Perform varying I from 1 by 1 until I > length of motSaisiTab 
    move motSaisi( I : 1 ) to motSasiiTablo (I)
End-Perform

etc.....(la dernière solution te montre aussi comment faire le découpage sans prédéfinition. Suivant les normes locales, elle sera encouragée ou à bannir).