Discussion :

[Lagmare]

Bonjour,

Dans le cadre d'une réflexion sur la mise en place d'une solution, je souhaiterai savoir s'il est possible de récupérer un nom de donnée à partir de la valorisation d'une autre.
Je m'explique, est-il possible de faire :

Code :

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

1
2
3
4
5
6
 01  ENTREE.
     05  DONNEE                   PIC X(6)    VALUE "SORTIE".
     05  CPTR  USAGE POINTER.
 01  SORTIE                       PIC X(1)    VALUE SPACE.

     MOVE "S" TO CPTR.

Et valoriser automatiquement à "S" la donnée SORTIE ?

Merci d'avance pour vos réponses .

[Darkzinus]

Bonjour, à ma connaissance non, ça n'est pas possible.

[Lagmare]

Merci de cette réponse ! C'est quand même bien dommage

[Darkzinus]

Sinon as-tu regardé du côté des "niveaux 88" qui sont très utiles pour des tests logiques ? (ça n'est pas ta question initiale mais tu peux t'en approcher).

Code :

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

1
2
3
01 ENTREE PIC X(1).
   88 SORTIE VALUE 'S'
   88 ENTREE VALUE 'E'

Tu peux ensuite faire des choses du type :

Code :

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

Move 'S' to ENTREE

Et ensuite des tests sur la condition : IF SORTIE

[escartefigue]

Bonjour,

Peux tu expliquer ce que tu veux faire fonctionnellement, car là j'avoue ne pas comprendre le but à atteindre

[Lagmare]

tout d'abord, merci de vos réponses.
Concernant l'explication fonctionnelle, cela ne vas pas être simple ...

Je souhaiterai valorisé une donnée X à une valeur précise à partir de la valeur contenue dans une donnée.
Comme indiqué au dessus, j'aurais pour exemple :

Code :

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

1
2
- TEST      PIC X(06) VALUE "SORTIE"
- SORTIE  PIC X(01).

Je souhaiterai savoir s'il est possible de valoriser à "S" la donnée contenu dans la donnée "TEST" !! (O__o), (Il y aura forcement la donnée correspondante déclarée dans la donnée "TEST")
C'est à dire, avoir "S" dans la donnée SORTIE au final.

Cordialement,
Thomas.

[escartefigue]

Par rapport à ton post initial, la variable CPTR est décrite en usage pointer, l'instruction move est donc invalide.
L'usage "pointer" permet de récupérer l'adresse d'une autre variable (pointer sur son adresse) ou à "null" si cette adresse n'est pas connue.
La syntaxe pour positionner la valeur de CPTR est "SET ADDRESS OF CPTR TO ADDRESS OF MAVARIABLE..."

Tu ne peux pas obtenir le nom d'une variable cobol, mais son contenu (MOVE) ou son adresse (SET).

[el_slapper]

Sinon, y'a le bon vieux Redefines :

Code :

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

1
2
3
4
5
6
7
01  ENTREE.
     05  DONNEE                   PIC X(6)    VALUE "SORTIE".
     05  CPTR  USAGE POINTER.
01  FILLER    REDEFINES ENTREE.
     05 SORTIE PIC X(1).
     05 FILLER PIC X(4).

Mais ça n'est pas très dynamique, hein...

[escartefigue]

Bien que les compilateurs cobol acceptent depuis longtemps (avec warning) des redefines sur des zones de longueurs différentes, il est préférable d'utiliser des redefines avec des longueurs identiques, surtout si on utilise des pointeurs.

Un pointeur est défini sur 4 octets binaires soit une zone "01 entrée" de 10 octets

Quoiqu'il en soit, un redefines ne permet pas non plus d'obtenir le nom de la donnée

[Hédhili Jaïdane]

Bonjour.

En l'absence de solution utilisant les pointeurs, il reste la vieille technique des tableaux ou celle des s/programmes, voir cette discussion : http://www.developpez.net/forums/d12...ogramme-cobol/

[Lagmare]

Bonjour,

Tout d'abord, merci de vos réponses

Au final, nous avons opté pour les EVALUATE :

Code :

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

1
2
3
4
EVALUATE TAB
   WHEN "SORTIE"
      MOVE "S" TO SORTIE
   WHEN ....

[Luc Orient]

...
Au final, nous avons opté pour les EVALUATE :

Tant mieux pour toi si ça marche, et c'est bien l'essentiel, car je suis comme escartefigue, je n'ai absolument rien compris à ce que tu voulais faire ...

Si c'est valoriser une zone en fonction du contenu d'une autre et passer par des tests, ça me semble plutôt une bonne idée en effet ...

Je ne vois pas le rapport avec les pointeurs, mais bon quelque chose doit m'échapper sans doute ...

[Darkzinus]

J'avoue que la solution finale me laisse également perplexe quant à la problématique initiale. Mais bon, du moment que la solution convienne ...