Discussion :

[ted the Ors]

Bonjour

Comment faire pour déclarer une variable de niveau 88 (que l'on appellera VAR par exemple) afin que celle-ci soit comprise entre les valeurs 050 et 100 (donc des valeurs numériques) mais aussi qu'elle puisse prendre la valeur 'ABC' ?

Actuellement, j'ai

Code :

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

1
2
01  TEST  PIC X(04)
   88 VAR  VALUE '050' THRU '100'

et je voudrais que VAR puisse aussi etre égale à 'ABC'.

Est-ce qu'une déclaration de ce type serait correcte :

Code :

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

1
2
01  TEST  PIC X(04)
   88 VAR  VALUE '050' THRU '100' OR 'ABC'

D'avance merci

A plus

Ted

[Mercure]

ted the Ors a écrit :

Est ce qu'une declaration de ce type serait correcte:

01 TEST PIC X(04)
88 VAR VALUE '050' THRU '100' OR 'ABC'

Je ne pense pas qu'une déclaration de ce type est correcte.
Il faut découper le niveau 88 en deux niveaux, comme illustré ci-dessous :
01 TEST PIC X(04).
88 VARNUM VALUE '050' THRU '100'
88 VARABC VALUE 'ABC'

Puis tester :
IF VARNUM ... teste les valeurs comprises inclusivement entre '050' à '100'
IF VARABC ... teste la valeur 'ABC'.

Toutefois, je remplacerais le dernier test en le combinant avec le premier, car le le nom condition VARABC ne m'apporte rien et ne fait qu'alourdir le programme:
IF VARNUM OR TEST = 'ABC'
Les niveaux 88 ne sont intéressants que lorsqu'on veut tester une plage de valeurs comme dans le premier test et pas une valeur isolée.

[HRS]

l'énumération est possible : "2" thru "7", "A" thru "F"

donc essayez

88 VAR VALUE '050' THRU '100', 'ABC'.

[ted the Ors]

Bonsoir

l'énumération est possible : "2" thru "7", "A" thru "F"

donc essayez

88 VAR VALUE '050' THRU '100', 'ABC'.

Merci à mercure et HRS pour les infos/conseils...
Ceci dit je vais tenter la methode d'HRS qui me parait plus jolie!

Merci encore!

A plus

Ted

[Mercure]

Je serais curieux de connaître le résultat.
Quelle est la plate-forme utilisée ?
Que dit le compilateur et que donne le test selon le méthode HRS ?

[ted the Ors]

Je serais curieux de connaître le résultat.
Quelle est la plate-forme utilisée ?
Que dit le compilateur et que donne le test selon le méthode HRS ?

Ah comme quoi, le COBOL peut encore susciter bien des curiosité ...
Je n'en suis pas encore à la phase de developpement/test mais seulement à la phase d'analyse...Mais comptez sur moi pour vous tenir au courant!

A plus

Ted