Discussion :

[Deallyra]

Bonjour,

J'ai le problème suivant.

Je demande à l'utilisateur de saisir un nombre et, selon ce nombre, je vérifie que l'enregistrement existe ou non.

Le nombre à saisir est de déclaration PIC X(6).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
           IF W-TEMP IS NUMERIC THEN
             START FVOL IS KEY = F-NUMVOL
               INVALID KEY
               DISPLAY "Aucun vol ne correspond à votre saisie."
                 AT LINE 20 COLUMN 05
                 SUBTRACT 1 FROM W-COMPTEUR
               NOT INVALID KEY
                 PERFORM CONTINUER
             END-START
           ELSE
             DISPLAY "Veuillez saisir un numéro de vol."
               AT LINE 20 COLUMN 05
             SUBTRACT 1 FROM W-COMPTEUR
           END-IF

Le problème étant que la saisie, sinon avec les 6 numéros, renverra à chaque fois une erreur car la saisie étant en X(6) sera "remplie" par des espaces.

Et les espaces ne sont pas des numériques >.<

Sinon je peux dire que c'est une variable en 9(6)...
Mais en ce cas, s'il saisit un alpha, il est convertit en numérique et j'obtiens un résultat 000000... Donc ça passe outre mon test :/

Une idée ?

[funfox]

il y a probablement plus joli comme méthode, mais avec un "unstring" tu peux t'en sortir

tu fais un
unstring W-TEMP delimited by " " into W-TEST COUNT IN W-lg
on overflow
perform erreur (ca voudrait dire qu'il y a deux saisies avec un espace au milieu)
end-unstring

comme ca la t'as la taille de ton W-TEST sans espace.
(tu crée W-TEST de même caractéristique que W-TEMP, et W-lg Pic 9(1 ou 2)

il te reste qu'a faire un
if W-TEST(1:W-lg) is numeric

Ca devrait marcher non?

[Homer-ac]

Si on veut accepter les blancs, on peut en fonction du cas, tous ou au début, faire qque chose comme ça :

Code :

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

1
2
3
4
       Inspect W-TEMP Converting         ' ' to '0'             
   ou, Inspect W-TEMP Replacing Leading  ' ' by '0'             
       If      W-TEMP is numeric and not = zero then .........

l

[funfox]

Est ce que l'enregistrement colle la donnée saisie par l'utilisateur à droite?
sinon Inspect W-TEMP Converting ' ' to '0' pourrait mener à des résultats faux si on se retrouve avec des espaces à droite...

10 deviendrait 100000...

inspect leading c'est mieux, mais si on a des espaces a droite ca ne règle pas le problème...

En revanche si la saisie est collée à droite ca fonctionne (mais je ne crois pas que ca soit fait comme ca par défaut, si?)

[Deallyra]

@funfox

Merci pour la réponse.

Cependant, je ne comprends pas la notation suivante :

Code :

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

1
2
W-TEST(1:W-lg)

Pourrai-je avoir une explication? :3

@Homer-ac

Merci de même, cette solution me semble plus "conviviale"
J'ai testé, et c'est nickel


Réponse rapide et performante °o°

[Deallyra]

Hum.

En fait, vu que c'est un X(6), il y a un cadrage à gauche de la valeur saisie.

Par contre, comment le inspect pourrait renvoyer une fausse valeur ? Je n'ai pas comprit

[Deallyra]

En fait non, pas nickel... Comme dit plus haut

Vu que le cadrage est à gauche, j'obtiens:

Saisie : 7 7 7_ _ _

Les _ symbolisant les espaces.

Du coup, il va me chercher un identifiant 777000 et non pas 000777

[funfox]

je fais peut etre fausse route mais :

si tu as écrit '10'
dans ta donnée il y aura '10(et 4 espaces)'
donc si tu fais
Inspect W-TEMP Converting ' ' to '0'
ca ne va pas transformer ta donnée en
'100000' ?


pour W-TEST(1:W-lg)

1 c'est le placement, et W-lg la longueur
ca te permet de prendre une "sous-string" de W-TEST, de taille W-lg, débutant au caractère 1... ce qui est dans ton cas pile ce qui a été écrit, sans les espaces.

[Mercure]

Deallyra,

Si, comme je le pense, PERCOBOL supporte SQL, fais un essai en utilisant la fonction CAST qui te permet, sous SQL, de convertir dans une zone numérique des caractères numériques placés dans une zone alphanumérique :

Code :

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

1
2
3
01 MaZoneAlpha PIC X(6).
01 MaZoneNum PIC 9(6).
Exec SQL SET :MaZoneNum = CAST(:MaZoneAlpha as numeric(6, 0))

A l'issue de l'opération SET ci-dessus, si MaZoneAlpha contient la valeur '777___', MaZoneNum contiendra la valeur 000777.

[el_slapper]

En gros bourrin, je ferais une boucle dédiée. En supposant que tu est alignée à gauche.....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
MOVE 0 TO J
PERFORM VARYING I FROM 6 BY -1 UNTIL I > 1
   IF F-NUMVOL ( I : 1 ) = SPACE OR LOW-VALUE
      CONTINUE
   ELSE
      MOVE I TO J
      MOVE 0 TO I
   END-IF
END-PERFORM
COMPUTE K = 7 - J
IF K < 7
   MOVE F-NUMVOL ( 1 : J ) TO W-SAUVEGARDE ( 1 : J )
   MOVE ZEROES TO F-NUMVOL
   MOVE W-SAUVEGARDE ( 1 : J ) TO F-NUMVOL ( K : J )
END-IF

ma boucle calcule la dernière position remplie de ton bidule, prends ce qui est rempli, et le fout à la fin de ta donnée, tout en ayant forçé le reste à zéros. Bourrin, Moche, mais ça devrait marcher. J'ai par contre supposé que tes données sont collées à gauche. Si elles sont collées à droite, tu te contentes de remplacer tous les espaces/low-value devant par des zéros. Si tu n'en sais rien, il faut d'abord faire cette seconde manoeuvre avant de recaler le reste à droite.....Ah, j'ai aussi supposé que F-NUMVOL était alpha.

INSPECT, c'est bien, mais quand on commence à avoir des données mal positionnées(ce qui peut être ton cas), ça montre vite ses limites.

[Deallyra]

Deallyra,

Si, comme je le pense, PERCOBOL supporte SQL, fais un essai en utilisant la fonction CAST qui te permet, sous SQL, de convertir dans une zone numérique des caractères numériques placés dans une zone alphanumérique :

Code :

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

1
2
3
01 MaZoneAlpha PIC X(6).
01 MaZoneNum PIC 9(6).
Exec SQL SET :MaZoneNum = CAST(:MaZoneAlpha as numeric(6, 0))

A l'issue de l'opération SET ci-dessus, si MaZoneAlpha contient la valeur '777___', MaZoneNum contiendra la valeur 000777.

Unexpected get-parameters in statement: "SET :W-TEMP = CAST(:W-TEMP AS NUMERIC(6, 0))".

@el_slapper

En effet, bourrin

Je retente la version de funfox et si je n'obtiens pas ce que je veux... Ce sera le dernier recours mais bon

[Hédhili Jaïdane]

Bonjour.

Si tu as la FUNCTION NUMVAL utilise la.
Voir discussions :

- http://www.developpez.net/forums/d64...obol-for-z-os/

- http://www.developpez.net/forums/d61...ues-ile-cobol/

- http://www.developpez.net/forums/d60...ghlight=NUMVAL

[Deallyra]

J'ai fait une recherche sur DVP mais pas avec le nom de la fonction

Pour la discussion de Beeges... Je l'avais trouvée par recherche mais je ne l'ai pas lue entièrement puisque l'enregistrement dans un fichier ne me concernait pas... Et je n'ai pas été voir plus loin

Je regarde du coté de NUMVAL.

Merci

[funfox]

pour info meme si tu vas faire autrement...

ca marchait ce que j'avais proposé? tu as eu le temps de tester?

[Homer-ac]

Par coincidence je viens de poster sur ce forum (pour z/OS) un exemple de programme COBOL qui rencontre la même problématique, on reçoit dans une zone alpha du numérique cadrée à gauche. J'ai géré comme ça (j'avais déjà signalé cette méthode sur un autre post)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
           If RETURN-CODE = 0
      *       On prend le comptage reçu pour sa longueur utile
              Move function reverse(WS-ZLLIB) to WS-WORK
              Move 0 to WS-CNT
              Inspect WS-WORK  Tallying WS-CNT For Leading space
              Compute WS-CNT = length of WS-ZLLIB - WS-CNT

      *       Et on alimente nouveau poste du tableau (membre et rang)
               Move WS-ZLLIB(1:WS-CNT) to TB-MEMBER-RGD(WS-CNT-MBRE)
               Move .............
           End-if

[Mercure]

SQL est bel et bien supporté par Percobol. Je viens de m'en assurer en récurant la toile.
En revanche, je ne comprends pas le message

Unexpected get-parameters in statement: "SET :W-TEMP = CAST(:W-TEMP AS NUMERIC(6, 0))".

J'ai cherché aussi sur la toile mais n'ai pas trouvé une réponse qui me satisfasse.
Comme il manque le END-EXEC dans mon exemple, c'est peut-être pour ça que le compilateur rouspète. Peux-tu stp faire un essai en l'ajoutant à la fin de l'instruction ?

Code :

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

EXEC SQL SET :W-TEMP = CAST(:W-TEMP AS NUMERIC(6, 0)) END-EXEC

[Deallyra]

J'avais pensé au end-exec

Et j'ai moi aussi vu que le SQL était supporté...

Mais j'obtiens tout de même ceci :

[funfox]

tain google est trop puissant...

je vais sur la toile pour voir si je peux trouver d'autres cas "unexpected get parameters"... et je tombe sur cette page, datant d'il y a 4h, en première page de résultat !

Sinon le numval a fonctionné?

Sinon (bis) je ne sais pas, mais je dirait de vérifier par étape : vérifie que
EXEC SQL SET :W-TEMP = 'test' END-EXEC passe
puis
EXEC SQL SET :W-TEMP = :W-TEMP END-EXEC

si oui, un
EXEC SQL SET :W-TEMP = cast(:W-TEMP as numeric) END-EXEC
(...)

[Mercure]

Si ce que te propose funfox ne convient pas, tu peux essayer :

Code :

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

EXEC SQL SET :MaZoneNum = DECIMAL(:MaZoneAlpha) END-EXEC

Au fait, il faut que MaZoneNum soit définie en numérique dans ton cobol, ce qui n'a pas l'air d'être le cas dans avec la fonction CAST comme tu l'as codée dans ton programme :

Code :

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

SET :W-TEMP = CAST(:W-TEMP ...

Ici, tu "castes" W-TEMP dans la zone W-TEMP, ce qui me semble assez incohérent...

[Deallyra]

Sinon le numval a fonctionné?

En bricolant un petit programme de test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. test.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           77 W-NUMERIC PIC 9(6).
           77 W-ALPHANUM PIC X(6).
       PROCEDURE DIVISION.
       DEBUT.
        MOVE 777 TO W-ALPHANUM
        DISPLAY "["W-ALPHANUM"]"
        MOVE FUNCTION NUMVAL(W-ALPHANUM) TO W-NUMERIC
        DISPLAY "["W-NUMERIC"]"
        MOVE "abc" TO W-ALPHANUM
        MOVE FUNCTION NUMVAL(W-ALPHANUM) TO W-NUMERIC
        DISPLAY "["W-NUMERIC"]"
        ACCEPT W-NUMERIC
       FIN.

J'obtiens ceci :


Ensuite

Sinon (bis) je ne sais pas, mais je dirait de vérifier par étape : vérifie que
EXEC SQL SET :W-TEMP = 'test' END-EXEC passe
puis
EXEC SQL SET :W-TEMP = :W-TEMP END-EXEC

si oui, un
EXEC SQL SET :W-TEMP = cast(:W-TEMP as numeric) END-EXEC
(...)

J'obtiens ceci :

Si ce que te propose funfox ne convient pas, tu peux essayer :

Code :

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

EXEC SQL SET :MaZoneNum = DECIMAL(:MaZoneAlpha) END-EXEC

Au fait, il faut que MaZoneNum soit définie en numérique dans ton cobol, ce qui n'a pas l'air d'être le cas dans avec la fonction CAST comme tu l'as codée dans ton programme :

Code :

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

SET :W-TEMP = CAST(:W-TEMP ...

Ici, tu "castes" W-TEMP dans la zone W-TEMP, ce qui me semble assez incohérent...

Cruche inside...

Par coincidence je viens de poster sur ce forum (pour z/OS) un exemple de programme COBOL qui rencontre la même problématique, on reçoit dans une zone alpha du numérique cadrée à gauche. J'ai géré comme ça (j'avais déjà signalé cette méthode sur un autre post)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
           If RETURN-CODE = 0
      *       On prend le comptage reçu pour sa longueur utile
              Move function reverse(WS-ZLLIB) to WS-WORK
              Move 0 to WS-CNT
              Inspect WS-WORK  Tallying WS-CNT For Leading space
              Compute WS-CNT = length of WS-ZLLIB - WS-CNT

      *       Et on alimente nouveau poste du tableau (membre et rang)
               Move WS-ZLLIB(1:WS-CNT) to TB-MEMBER-RGD(WS-CNT-MBRE)
               Move .............
           End-if

Je n'avais pas vu ton message... Désolée
Sur un petit test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. test.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           77 W-NUMERIC PIC 9(6).
           77 W-ALPHANUM PIC X(6).
           77 W-TEMP PIC X(6).
           77 WS-CNT PIC 9.
       PROCEDURE DIVISION.
       DEBUT.
         MOVE 123 TO W-ALPHANUM
         MOVE FUNCTION REVERSE(W-ALPHANUM) TO W-ALPHANUM
         MOVE 0 TO WS-CNT
         INSPECT W-ALPHANUM TALLYING WS-CNT FOR LEADING SPACE
         DISPLAY W-ALPHANUM
         ACCEPT W-TEMP
       FIN.

Cette proposition me renvoie 000321 au lieu de 000123

il y a probablement plus joli comme méthode, mais avec un "unstring" tu peux t'en sortir

tu fais un
unstring W-TEMP delimited by " " into W-TEST COUNT IN W-lg
on overflow
perform erreur (ca voudrait dire qu'il y a deux saisies avec un espace au milieu)
end-unstring

comme ca la t'as la taille de ton W-TEST sans espace.
(tu crée W-TEST de même caractéristique que W-TEMP, et W-lg Pic 9(1 ou 2)

il te reste qu'a faire un
if W-TEST(1:W-lg) is numeric

Ca devrait marcher non?

Oui et non... Enfin, si je ne me suis pas trompée sur la signification de overflow >.>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. test.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           77 W-NUMERIC PIC 9(6).
           77 W-ALPHANUM PIC X(6).
           77 W-TEMP PIC X(6).
           77 W-LG PIC 9.
       PROCEDURE DIVISION.
       DEBUT.
        MOVE 123 TO W-ALPHANUM
        UNSTRING W-ALPHANUM DELIMITED BY " " 
          INTO W-NUMERIC COUNT IN W-LG
          ON OVERFLOW
          DISPLAY "Erreur overflow"
        END-UNSTRING
        IF W-NUMERIC(1:W-LG) IS NUMERIC
          DISPLAY W-NUMERIC
        END-IF
        ACCEPT W-TEMP
       FIN.