Discussion :

[aalex_38]

Bonjour,

Dans un fichier, j'ai un montant qui peut être au crédit au ou débit à une certaine rupture je doit écrire une nouvelle ligne avec le montant cumulé en débit ou en crédit.

Pour l'insant j'ai ça :

Code :

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

1
2
3
4
5
6
7
8
77 TOT-MONTANT           PIC S9(12). 
05 MONTANT               PIC  9(12).

IF  DEBIT-CREDIT = 'D'                           
    COMPUTE TOT-MONTANT = TOT-MONTANT - MONTANT  
ELSE                                             
    COMPUTE TOT-MONTANT = TOT-MONTANT + MONTANT  
END-IF.

Il me reste a renseigner le montant pour la nouvelle ligne avec le montant total, mais ma zone est signée.

Je reprend le cobol après plusieurs années d'abstinence, si quelqu'un peut m'aider.

[Homer-ac]

Si tu fais un move d'une zone numérique signée sur une zone non signée, le signe sera simplement forcé à +. Puis en fonction du signe de TOT-MONTANT tu alimentes la colonne débit ou crédit depuis la donnée non signée.
NB. Il est préférable pour des raisons de performances de déclarer les montants utilisés pour les calculs intermédiaires en COMP-3, en tous cas pour les OS IBM. Attention enfin au fait que la donnée cumulée est de même longueur que la donnée de cumul. La zone de totalisation risque d'être tronquée.

[aalex_38]

Merci pour la réponse, je ne me suis peut être pas très bien exprimé, en fait ce que je veux faire c'est valoriser MONTANT (non signé) avec TOT-MONTANT
(signé) selon le signe un autre champ aura la valeur C (crédit) ou d(Débit)

Est-ce que je peut faire

Code :

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

1
2
3
4
5
6
7
If TOT-MONTANT > 0
 MOVE TOT-MONTANT TO MONTANT
 MOVE 'C' TO DEBIT-CREDIT  
else
 MOVE TOT-MONTANT TO MONTANT
 MOVE 'D' TO DEBIT-CREDIT  
end if'

[Homer-ac]

C'est ça, simplement comme 0 n'est pas un débit

Code :

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

1
2
3
4
5
6
7
MONTANT = TOT-MONTANT
If TOT-MONTANT < 0
  DEBIT-CREDIT = 'D'
else
  DEBIT-CREDIT = 'C'
end if

[aalex_38]

Bon je n'avais pas bien lu la réponse :

Code :

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

Si tu fais un move d'une zone numérique signée sur une zone non signée, le signe sera simplement forcé à +.

donc je test et je reviens vers vous si pb.

[aalex_38]

C'est ça, simplement comme 0 n'est pas un débit

effectivement, très bonne remarque merci Homer-ac, il me semble que ça fonctionne, je dois encore verfier quelques lignes.