Discussion :

[nenekes]

Bonjour à tous,

je cherche à savoir comment on fait pour convertir le contenu d'une variable 'pic x(15)' (son contenu est un nombre mais impossible de le manipuler en tant que tel !!!) en contenu numérique avec possibilité de faire des opérations avec ??

Merci

[HRS]

Code :

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

1
2
3
4
5
6
7
01  VARX  PIC X(15).
01  VAR9 PIC 9(15) REDEFINES VARX.


IF VARX NUMERIC
   ADD VAR9 TO .....

[nenekes]

merci ...
ca ne marche pas mon compilateur m envoi baladé ....

message a la compile:

Code :

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

1
2
3
1544 01 W-PSUM         PIC 9(12)V99 REDEFINES I-PSUM.
* 204-S***********************************************                 (   0)**
**    REDEFINES on incorrect field

declaration:

Code :

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

1
2
3
4
5
6
7
8
9
01  INCO.   
           05 I-NUMBER        PIC X(10).
           05 I-DATE          PIC X(10).    
           05 I-PAY-KIND      PIC X(35).
           05 I-PSUM          PIC X(15).

puis:

01 W-PSUM         PIC 9(12)V99 REDEFINES I-PSUM.

correcte ou bien ??
merci

[HRS]

il faut redefinir à niveau égal et longueur égale (le V est virtuel)

Code :

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

1
2
3
4
5
6
7
01  INCO.   
           05 I-NUMBER        PIC X(10).
           05 I-DATE          PIC X(10).    
           05 I-PAY-KIND      PIC X(35).
           05 I-PSUM          PIC X(15).
           05 W-PSUM          PIC 9(13)V99 REDEFINES I-PSUM.

[nenekes]

OK merci la compile passe ... cool!
par contre je fais la chose suivante dans mon code ....

Code :

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

1
2
3
4
5
6
7
8
IF I-PSUM NOT NUMERIC
              MOVE ZERO TO CTL-DATA
              MOVE 'AMOUNT MUST BE NUMERIC' TO W-64441E
              MOVE ZERO TO W-64250
           ELSE
              COMPUTE I-PSUM = I-PSUM * 100
              MOVE I-PSUM  TO W-64250
           END-IF.

et la compile ne passe pas la dessus ....

Code :

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

1
2
3
4
Compiling K1PZS1.cbl
  1885        COMPUTE I-PSUM = I-PSUM * 100
*  34-S*********************                                           (   0)**
**    Operand I-PSUM should be numeric

j en peux plus de l informatique help !!!!

[Luc Orient]

... et la compile ne passe pas la dessus ....

Code :

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

1
2
3
4
Compiling K1PZS1.cbl
  1885        COMPUTE I-PSUM = I-PSUM * 100
*  34-S*********************                                           (   0)**
**    Operand I-PSUM should be numeric

Il faut utiliser la variable redéfinie soit :

Code :

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

COMPUTE W-PSUM = W-PSUM * 100