Discussion :

[BernardBZH]

Bonjour,

Soit une variable déclarée comme suit :

Code :

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

01 TOTO PIC S9(5) COMP-6.

Dans le code on trouve ensuite cette instruction :

Code :

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

1
2
3
IF TOTO = LOW-VALUE
    ...
END-IF

La compilation sous MicroFocus se passe sans problème. En revanche avec AcuCobol la compilation se plante avec le message suivant : ERROR: TOTO is illegal type in this context

Passer la variable en COMP-3 ou autre ne change rien. Seul le décimal étendu passe à la compilation.

Quelqu'un a-t-il déjà rencontré ce problème ? Y a-t-il une option de compilation particulière permettant d'accepter ce test ?

D'avance merci pour votre aide.

[Darkzinus]

Bonjour, de manière générale je ne mets jamais du LOW-VALUE dans du numérique (même étendu). Car même si tu passes à la compilation, tu planteras à l'exécution ... Autrement si tu veux vraiment outrepasser ça, tu fais un MOVE de ta variable numérique dans une zone groupe composée de niveaux 88 dont une contiendra la valeur LOW-VALUE.
Exemple :

Code :

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

1
2
3
4
                     
03 W-TP-TEST                  PIC X(6).       
      88 W-LOW-VALUE        VALUE LOW-VALUE.
      88 W-SPACE            VALUE SPACE.    .

Tu fais un MOVE de ta zone en 9 (étendue) dans W-TP-TEST
Et tu testes le IF W-LOW-VALUE

[Luc Orient]

Pour moi, la constante figurative LOW-VALUE est de type alphanumérique. Donc la comparer avec une donnée de type numérique n'a pas de sens.

Le fait que la compilation passe avec le compilateur Microfocus signifie juste que ce dernier a un comportement laxiste ...

[BernardBZH]

Merci pour vos réponses. Elles me permettent de conforter la solution que j'ai proposée sur mon projet, à savoir remplacer l'évaluation de TOTO avec LOW-VALUE par une évaluation avec IS NUMERIC.

Je clos la discussion.

[Luc Orient]

Sur le COBOL du Mainframe IBM (Enterprise COBOL 4.2) on a :

Avec cette variable 1 A PIC S9(5) BINARY. et ces instructions :

Code :

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

1
2
3
4
IF A = LOW-VALUE 
       NEXT SENTENCE 
END-IF

on obtient le message d'erreur suivant !

Code :

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

1
2
3
IGYPA3022-S "A (BINARY INTEGER)" was compared with "LOW-VALUE".  The comparison was 
            discarded

Avec 1 B PIC S9(5) PACKED-DECIMAL. on a !

Code :

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

1
2
3
IGYPA3022-S "B (PACKED INTEGER)" was compared with "LOW-VALUE".  The comparison was 
            discarded

CQFD

[escartefigue]

Bonjour,

Attention : BernardBZH utilise un format microfocus comp-6, or ce format n'existe pas sur mainframe.

Sur Z/OS, avec du format binaire (COMP ou COMP-4), on ne peut pas utiliser le test de numéricité (IF xxxx IS NUMERIC), le compilateur produit l'erreur suivante :
IGYPA3256-S "BI-NS1 (BINARY INTEGER)" did not have a valid type for the specified class condition

Peut etre en est-il de même sur microfocus.