Version imprimable
Bonjour,
Je cherche à mettre un champ (champ1) déclaré comme ceci :dans un champ (champ2) alphanumérique en gardant la virgule.Code:PIC 9(02)V99
Par exemple :
si champ1 = 12,45
alors je veux après leavoir champ2 = 12,45Code:MOVE champ1 TO champ2
Car là je vois que la virgule saute automatiquement lors du MOVE !
Faut-il une déclaration spéciale pour les champ1 et champ2 ?
Merci d'avance :D
Bon je pense avoir trouver la réponse par ici.
Et quelle option as-tu retenue alors ?
Si "CHAMP1" est déclaré en COMPUTATIONAL-qqch ou BINARY, aucune option proposée fonctionnera correctement.
Sous quel OS tournes-tu ?
Edit :
J'aurais écrit tout simplement :
Dans Champ2, tu auras la valeur 12,34 éditée avec la virgule et suppression des éventuels zéros de gauche non significatifs.Code:
2
3
4
5
6Special-Names. Decimal-Point is Comma. 01 Champ1 pic 9(02)V99 VALUE 12,34. 01 Champ2 pic Z(2),99. Move Champ1 to Champ2.
La picture d'édition fait le travail que tu veux.
J'ai opté pour une déclaration de type :
J'ai eu un problème lorsque W-MTREGLD2 < 0. Je ne comprends pas pourquoi dans ce cas j'ai W-MTREGL-ENT2 > 0 et W-MTREGL-DEC2 <0 !! (le signe moins est affecté à la partie décimale et non pas à la partie entière !). Sans trop réfléchir j'ai multiplié la partie décimale par (-1) !Code:
2
3
4
5
6
7
8
9
10
11
12
1311 W-MTREGLD2 PIC 9(13)V99. 11 W-MTREGLR2 REDEFINES W-MTREGLD2. 12 W-MTREGL-ENT2 PIC 9(13). 12 W-MTREGL-DEC2 PIC 99. 11 W-MTREGLF2 PIC X(20). *** Après je concatène W-MTREGL-ENT2 et W-MTREGL-ENT2 STRING W-MTREGL-ENT2 DELIMITED BY SIZE "," DELIMITED BY SIZE W-MTREGL-DEC2 DELIMITED BY SIZE INTO W-MTREGLF2
Le tour est joué :ccool:
Mais pourquoi pas la picture d'édition que j'ai proposée car cela me semble quand même plus simple et résoud le problème du signe ?
Est ce qu'avec cette picture d'édition la valeur contenue dans champ2 sera insérée avec la virgule et le signe dans la base DB2 ?
Car lorsque j'alimente champ2 je le mets dans un champ d'un fichier et je WRITE.
Citation:
Envoyé par Mercure
Non. Tu dois insérer CHAMP1 dans la base, mais chaque fois que tu auras besoin d'éditer ou d'imprimer la virgule, un MOVE CHAMP1 de la base TO CHAMP2 fera l'affaire.Citation:
Envoyé par JauB
Il faut toutefois que la picture de Champ1 soit signée et celle de Champ2 aussi
Code:
2
3
4
5
6
7
8
901 Champ1 pic S9(02)V99. 01 Champ2 pic -Z(2),99. ou bien 01 Champ2 pic Z(2),99-. selon que tu veux voir le signe à gauche ou à droite de la zone.
Beh c'est ça le problème ! mon champ est déclaré dans la base comme suit :Citation:
Envoyé par Mercure
Dans ce cas, si je fais :Code:A MTREGL 16A TEXT('Montant réglé')
MOVE champ1 TO MTREGL OF MYFILE alors ça va pas marcher !
D'où la nécessité de passer par une variable intermédiaire qui contient la virgule comme caractère ....
Mais pourquoi le montant est-il défini en alphanumérique dans la base ? Cela me semble incohérent.
En fait tous les champs de mon fichier sont en alphanumérique. Pourquoi ? parce que ce fichier est destiné à un export Excel (j'avais posté pour savoir s'il y a possibilité d'export Excel avec extraction automatique des noms de colonnes) ! Puisque c'est pas impossible de le faire d'une manière aisée sans passer par d'autres outils... j'étais obligé de redclarer tous mes champs en alpha comme lors de l'écriture j'initialise mon fichier par un entête en dur en y écrivant les noms des colonnes. L'export vers Excel devient plus lisible à l'utilisateur final ! 8O
A propos d'excel, je t'ai répondu en te donnant une solution simple ici et ce n'est pas ce que tu as fait. Tu n'as pas besoin de définir tous tes champs en alpha comme tu l'as fait et la soluce que je t'ai proposée et beaucoup plus simple et vraiment standard.
Oui j'ai vu ta solution sur l'Excel et je pense que c'est la bonne façon de faire. Mais, compte tenu d'un certain type d'utilisateur, faire une manipulation sous Excel implique le rejet du projet. L'utilisateur a exprimé qu'il veut accéder directement aux différents fichiers Excel exportés sans aucune manipulation. C'est pour ça qu'on a pensé à un export sur l'IFS de l'AS400 ...
En tut cas merci pour ces réflexions si riches :zoubi:
Citation:
Envoyé par Mercure
Je ne ferai pas de commentaire désobligeant mais pourtant il y aurait de quoi ! :bug:
Edit :
Je n'avais pas bien lu ce que tu faisais ici et c'est parce que tu vas au devant de gros ennuis que j'y reviens.Citation:
Envoyé par JauB
C'est normal que le signe se trouve à droite de la partie décimale car c'est le standard que le compilateur Cobol prend par défaut. Par exemple, si la valeur 12345,67 est négative, le signe sera par défaut placé à droite de la valeur : 12345,67-. Si tu veux placer le signe à gauche de la valeur, ajoute SIGN IS LEADING et SIGNE LA PICTURE dans la définition de la zone concernée :
Multiplier le montant par -1 pour faire "disparaître" le signe, c'est renvoyer un résultat algébriquement erroné. Es-tu sûr que c'est bien ce que tu veux ? Il s'agit je crois de montants de réglements. Si tu en changes le signe (le sens), tu vas avoir de très mauvaises surprises, c'est garanti ! Les utilisateurs vont te tomber sur le dos, surtout les comptables !Code:
2
3
4
5
611 W-MTREGLD2 PIC S9(13)V99 SIGN IS LEADING. 11 W-MTREGLR2 REDEFINES W-MTREGLD2. 12 W-MTREGL-ENT2 PIC S9(13). 12 W-MTREGL-DEC2 PIC 99. 11 W-MTREGLF2 PIC X(20).
Je te propose donc de corriger ton programme et de faire tout simplement ce qui suit pour avoir le signe moins en première position dans la zone W-MTREGLF2 :
Comme la zone de travail d'origine (W-MTREGLD2) est définie an ayant le signe à gauche du montant, la conversion en alphanumérique avec le signe à gauche ne nécessite aucun artifice de programmation particulier et c'est tout simple. C'est ce que je montre ci-dessus.Code:
2
3
4
5
6
7Move Spaces to W-MTREGLF2. String W-MTREGL-ENT2 Delimited By Size, "," Delimited By Size, W-MTREGL-DEC2 Delimited By Size Into W-MTREGLF2.
Surtout qu'avec la macro qui va bien, c'est "j'ouvre l'EXCEL standard, je clique sur le bouton, et hop ça m'a généré un EXCEL rempli". Que les manips à la noix consistant à choisir un format pour chaque case soient jugées trop lourdes pour madame Michu, je veux bien. Mais on peut générer dynamiquement un tableau EXCEL à partir d'une interface EXCEL, qui permette de choisir un fichier d'origine.....Bon, évidemment, ça prend quelques jours à faire.
M'enfin, le client est roi, et c'est lui qui décide. Parfois à son détriment(parceque du tout alpha, ça va finir par lui exploser à la tronche). :aie:
ceci ne serait-il pas plus simple ?
définir une variable intermédiaire : aux pic 99V,99.
move champ1 to aux. -> édition.
move aux to champ2. -> désédition
et le tour est joué.
bernard.hazard@gmail.com