30/04/2013, 19h15 #6 Membre averti un autre moyen (mais c est très moche) est d'analyser ce dernier caractère, en fonction des conventions cobol, pour le signe plus un C est mis sur l'avant dernier demi octet, pour le signe moins un D. aussi tu peux interpréter cette lettre comme: é: le chiffre 0 signe + pour le montant total A 1 + B 2 + C 3 + D 4 + E 5 + F 6 + G 7 + H 8 + I 9 + J 1 signe - sur le montant total K 2 - L 3 - M 4 - N 5 - O 6 - P 7 - Q 8 - R 9 - 30/04/2013, 23h11 #7 Pourquoi ne pas passer par une variable en redefines en +9(16), 99? ça mesure 21 de long et ce sera plus facile à parser 02/05/2013, 11h10 #8 merci à tous pour vos réponses. Je crois que je vais parser en prenant en dur le caractère et en le remplaçant. Pour info, je ne suis pas mettre de l'édition du fichier qui est généré par du Cobol. Il vient d'un service extérieur à ma boite. Numérique signé cobol evaluate. Merci encore. 02/05/2013, 22h14 #9 Expert éminent sénior Envoyé par jmmaugis (... /... ) Donc c'est le bon choix. J'ai moi-même implémenté cette solution "sale" sur certaine macros VB6 d'analyse de mes fichiers MVS.
1. Les conditions de signe Pour tester qu'une zone est positive, négative ou à zéro (attention: il ne faut pas confondre zone à zéro et valeur nulle: ce point sera abordé dans le chapitre Traitement des entrées-sorties), il est possible de coder: PERFORM UNTIL SQLCA-SQLCODE > 0 [... ] If ws-flot-file-status < 0 WHEN 0 If sqlcode not = 0 COBOL possède des conditions de signe permettant d'exprimer le test sans formulation algébrique: POSITIVE, NEGATIVE, ZERO. Chacune d'entre elles peut être enrichie de la négation NOT. Cobol - Comment convertir une chaîne de caractères alphanumérique en décimal en COBOL. Exemple: PERFORM UNTIL SQLCA-SQLCODE POSITIVE If ws-flot-file-status NEGATIVE WHEN ZERO If sqlcode not zero Certaines expressions sont équivalentes. Ainsi: ZEROES, IS NOT ZEROES, IS NOT POSITIVE, IS NOT NEGATIVE. équivaut à: ZERO, NOT ZERO, POSITIVE. 2. Les conditions de classe Le terme "classe" n'a pas de lien avec la notion de classe utilisée en programmation objet: les conditions de classe faisaient déjà partie des spécifications originelles de 1960, bien avant que n'apparaisse l'objet.
En regardant le deuxième exemple et en utilisant EBCDIC ASCII CHARACTER 25 -> 0A (LF) 3C -> 14 (DC4) vous auriez commencé avec 25 3C qui correspondrait au format mais pas à la gamme que vous avez donnée. Dans le troisième exemple, l'original 01 20 0C pourrait être converti en 01 80 0C puisque 20 est également un caractère de contrôle EBCDIC sans équivalent ASCII direct. Mais étant donné tous les autres exemples, je suppose qu'il y a un problème de conversion de code. Si vous avez utilisé une sorte de transfert de fichier pour déplacer les données depuis le mainframe (supposé), assurez-vous qu'il est en mode binaire et ne faites aucune conversion de caractères avant de diviser le fichier en champs et de savoir ce qu'est un caractère et quoi non. EDIT: Vous pouvez trouver une liste de plusieurs pages de code basées sur EBCDIC et ASCII ici ou regarder ici pour la même chose qu'un pdf. Programmer en COBOL - Développement et Maintenance de programmes - Les zones numériques | Editions ENI. Vous pouvez éviter les problèmes ci-dessus en convertissant les données en une méthode moderne de transfert de données: XML.
Cette date particulière devrait être 3-17-14. Deuxième exemple: Le PIC du champ est S9 (3) COMP-3 Il y a 2 octets aux données, les valeurs hexadécimales sont 0A 14 La valeur résultante devrait être entre 900 et 999 Ma compréhension est que le "S" signifie que le le dernier quart doit être 0xC ou 0xD pour indiquer + ou - Troisième exemple: Le PIC du champ est S9 (15) V99 COMP-3 Il y a 9 octets aux données, les valeurs hexadécimales sont 00 00 00 00 00 00 01 80 0C La valeur résultante devrait être 12. 00 Ok donc merci aux gens qui ont répondu car ils m'ont pointé dans la bonne direction. C'est en effet un problème de représentation ASCII / EBCDIC. Numérique signé cobol example. Le BCD est stocké dans EBCDIC. L'utilisation d'une table de conversion ASCII en EBCDIC donne des chiffres BCD correctement formatés: J'ai utilisé ce lien pour mapper les données: Mes données: 0A 14 converti: 25 3C (il s'avère que 253 est une valeur valide, spec était faux) C = +, tout bon Mes données: 01 80 0C (sauf les zéros en tête) Converti: 01 20 0C 12.
Par exemple, XXXX peut se réécrire X(4), c'est valable pour tous les types de caractères. Exemple 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. ex-variables. 000003 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 77 note PIC. 000007 77 prenom PIC A(20). 000008 000009 PROCEDURE DIVISION. 000010 main. 000011 STOP RUN. 000012 END PROGRAM ex-variables. Initialisation de variables [ modifier | modifier le wikicode] Lorsque vous définissez vos variables, vous pouvez leur donner une valeur, cette valeur doit être compatible avec leur image. C'est à ça que sert la clause VALUE. 000006 77 annee PIC 9(4) VALUE 2008. 000007 77 vide PIC A(20) VALUE "". Numérique signé cobol programming. 000008 77 prenom PIC A(20) VALUE "Aristote". 000009 000010 PROCEDURE DIVISION. 000011 main. 000012 STOP RUN. 000013 END PROGRAM ex-variables. Après ces définitions, annee contient 2008, vide contient une chaîne vide de 20 caractères et prenom contient la chaîne "Aristote" suivie de 12 espaces. Vous pouvez afficher ces variables à l'aide de l'instruction DISPLAY vue précédemment.