Version imprimable
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
Code:
2
3
4
5
6
7
merci ...
ca ne marche pas mon compilateur m envoi baladé ....
message a la compile:
declaration:Code:
2
3
correcte ou bien ??Code:
2
3
4
5
6
7
8
901 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.
merci
il faut redefinir à niveau égal et longueur égale (le V est virtuel)
Code:
2
3
4
5
6
701 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.
OK merci la compile passe ... cool!
par contre je fais la chose suivante dans mon code ....
et la compile ne passe pas la dessus ....Code:
2
3
4
5
6
7
8IF 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.
j en peux plus de l informatique help !!!!Code:
2
3
4
Il faut utiliser la variable redéfinie soit :Citation:
Envoyé par nenekes
Code:COMPUTE W-PSUM = W-PSUM * 100
merci effectivement la compile passe .....
mais mes resultats sont tjrs mauvais ......
bon si je peux me permettre voici ce que je fais :
j ai un fichier qui m arrive pour traitement (pas le choix il arrive comme ca
noter que le pipe "|" separe chaque champs ....
==>puis j en fais un fichier pla fixe al aide du awk comme suit ==>Code:126|19.09.2006|электронно|20366.98|
puis dans mon prog cobol la structure de ce fichier en entree du prog est declaré comme suit ==>Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35awk -F'|' ' { NUMBER=$1 DATE=$2 PAY_KIND=$3 PSUM=$4 LITERA_SUM=$5 PAYER_INN=$6 PAYER_ACC=$7 PAYER=$8 PAYER_BIC=$9 PAYER_KS=$10 PAYER_BANK=$11 RECIP_BIC=$12 RECIP_KS=$13 RECIP_BANK=$14 RECIP_INN=$15 RECIP_ACC=$16 RECIP=$17 PAYMENT_AI=$18 PAY_TERM=$19 PAY_QUEUE=$20 KPPIN=$21 KPPOUT=$22 KBK=$23 OKATO=$24 TAXBASE=$25 TAXPERIOD=$26 TAXNUMBERDOC=$27 TAXDATE=$28 TAXTYPE=$29 DRAWERSTATUS=$30 print ("%-10.10d%-10.10s%-35.35s%15.15g",$1,$2,$3,$4) } '$A2_FIC/$A2_IN_REP/$A2_SCAFILE > $A2_FIC/$A2_IN_REP/K1Z_TJZS1201
j ai demandé un REDIFINES puisque j ai un probleme avec le 4eme champs avec lequel je n arrivais pas a definir ou a savoir sous quel format il arrivé dans mon prog, apres le awk ..... j ai tou essayé et avec votre aide et au finale pour faire une pauvre operation que voici :Code:
2
3
4
5
601 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.
au finale ce que je veux est : la variable W-64250 contienne 2036698 le montant recu initialement 20366.98 par le 1er fichier et va etre plein de bidouille multiplié par 100 afin d enlever les deux dicimale derriere la virgule ???? telle est la grande enigme !!!Code:
2
3
4
5
6
7
8
9
10MOVE W-PSUM TO W-N13V2 IF W-N13V2 NOT NUMERIC MOVE ZERO TO CTL-DATA MOVE 'AMOUNT MUST BE NUMERIC' TO W-64441E MOVE ZERO TO W-64250 ELSE COMPUTE W-PSUM = W-N13V2 * 100 MOVE W-PSUM TO W-64250 END-IF.
je paie des frites a celui ou celle qui me trouve explication logique a tous ca ;-
)
merci
Attention, vous êtes sur un forum COBOL ...Citation:
Envoyé par nenekes
Ce genre de code (je devine un contexte UNIX) n'est pas forcément très clair pour un programmeur COBOL ...
Justement ! Le COBOL est un langage assez rigide dans le format de ses données et donc il est impératif de connaître ce format ...Citation:
puis dans mon prog cobol la structure de ce fichier en entree du prog est declaré comme suit ==>
j ai demandé un REDIFINES puisque j ai un probleme avec le 4eme champs avec lequel je n arrivais pas a definir ou a savoir sous quel format il arrivé dans mon prog, apres le awk .....Code:
2
3
4
5
601 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.
Pour que ça marche il faut que la variable W-PSUM contienne :Citation:
j ai tou essayé et avec votre aide et au finale pour faire une pauvre
operation que voici :
au finale ce que je veux est : la variable W-64250 contienne 2036698 le montant recu initialement 20366.98 par le 1er fichier ...Code:
2
3
4
5
6
7
8
9
10MOVE W-PSUM TO W-N13V2 IF W-N13V2 NOT NUMERIC MOVE ZERO TO CTL-DATA MOVE 'AMOUNT MUST BE NUMERIC' TO W-64441E MOVE ZERO TO W-64250 ELSE COMPUTE W-PSUM = W-N13V2 * 100 MOVE W-PSUM TO W-64250 END-IF.
000000002036698
c'est à dire 15 chiffres numériques ...