Je suis entrain de créer un package SSIS à lire dans déballé données à partir d'une série de cahier des fichiers. Je ne suis pas sûr de la bonne interprétation des définitions de champ et a été en espérant que quelqu'un sais: CHAMP-NOM-1 PIC S9(15)V9(3) COMP-3. CHAMP-NOM-2 PIC S9(3)V9(8) COMP-3. CHAMP-NOM-3 PIC S9(3)V9(6) COMP-3. Les données sont stockées dans le texte à largeur fixe. Les données pour les champs ci-dessus a les longueurs suivantes: CHAMP-NOM-1: 19 CHAMP-NOM-2: 11 CHAMP-NOM-3: 9 Je ne suis pas sûr de savoir comment interpréter la virgule et le signe. Toute aide serait grandement appréciée. Numérique signé cobol programming. Salutations, Jambon
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. Cobol - Comment convertir une chaîne de caractères alphanumérique en décimal en COBOL. 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. Vous pouvez éviter les problèmes ci-dessus en convertissant les données en une méthode moderne de transfert de données: XML.
Il y a beaucoup de réponses à ce sujet, vous devriez regarder le related à droite. Jetez un oeil à cette question récente: Convertir COMP et COMP-3 Packed Decimal en valeur lisible avec C
Image d'une variable [ modifier | modifier le wikicode] L'image ( PIC) de la variable est une suite de caractères, les caractères que vous utilisez vont conditionner le type de la variable: numérique: 9 (chiffre) S (signe) V (virgule) alphabétique: A (lettre majuscule, minuscule ou espace) alphanumérique: X (n'importe quel caractère) numérique édité: B (espace) V Z (zéro non affiché) 9 0 (zéro) / + -,. alphanumérique édité: A X B 0 / Voici quelques exemples d'images de variables pour comprendre le fonctionnement: une note: valeur numérique sur 2 positions entières et pouvant contenir 2 décimales: 99. 99: type numérique; idem en n'affichant pas les zéros superflus:: type numérique édité; 7 lettres de l'alphabet (ou espaces): AAAAAAA: type alphabétique; chaîne de 4 caractères quelconques: XXXX: type alphanumérique; chaîne de 10 caractères pouvant stocker une date telle que 01/12/1998: 99/99/9999: type numérique édité; chaîne de 7 caractères contenant 2 mots de 3 caractères séparés par un espace: AAABAAA: type alphanumérique édité Il existe un raccourci d'écriture pour nous simplifier la vie: mettre le nombre d'occurrences d'un caractère entre parenthèses plutôt que de toutes les écrire.
Constantes figuratives [ modifier | modifier le wikicode] Il est également possible d'utiliser des constantes figuratives pour ces initialisations. En voici une liste: ZERO, ZEROS, ZEROES SPACE, SPACES HIGH-VALUE, HIGH-VALUES LOW-VALUE, LOW-VALUES QUOTE, QUOTES On peut les utiliser comme suit: 77 annee PIC 9(4) VALUE ZERO. 77 vide PIC A(20) VALUE SPACES. Numérique signé cobol interview questions. Ainsi annee est initialisée à 0000 et vide contient une série d'espaces. Ces constantes figuratives peuvent également être affichées à l'écran via l'instruction DISPLAY. Représentation numérique en mémoire [ modifier | modifier le wikicode] Il est également possible de modifier la représentation des types numériques en mémoire, en précisant la clause USAGE lors de la déclaration de variables. Voici la liste des différentes représentations possibles: BINARY: base 2 COMP[UTATIONAL] pour faciliter les calculs DISPLAY: par défaut, code ASCII (1 digit sur 8 bits) PACKED-DECIMAL: base 10 (1 digit sur 4 bits) Cette clause permet d'optimiser la place occupée en mémoire par nos variables.
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. Programmer en COBOL - Développement et Maintenance de programmes - Les zones numériques | Editions ENI. 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.