Developpez.com

Une très vaste base de connaissances en informatique avec
plus de 100 FAQ et 10 000 réponses à vos questions

Tester No De Sécurité Sociale

Présentation
Ci joint module pour tester la Clef No de Sécurité Sociale y compris pour la Corse
En Entrée le No SS sur 15 caractères
En Sortie La Cle theorique (calculée uniquement si le No est Numérique)
Un code erreur à 1 si la clef est incorrect ou le No SS est non numérique après transformation pour la Corse
Nos ressources disponibles
Pas de tutoriel algorithme tiré de la description cle SSo de Wikipédia
Téléchargement
0  0 
Téléchargé 22 fois Voir les 2 commentaires
Détails
Catégories : Codes sources Cobol
Éditeur : marcob   +
Licence : Autre
Date de mise en ligne : 14 août 2015




Avatar de escartefigue escartefigue - Expert éminent https://www.developpez.com
le 23/09/2015 à 15:11
Bonjour,

Je suis surpris que cette instruction passe au compilateur : if w-matric(7:1) = "A" or "B" vu que w-matric est déclaré en numérique, certes en étendu mais quand même.

J'aurai plutôt effectué le test sur la variable 01 dont elle dépend, w-NUMSSO donc
Avatar de marc.bichara marc.bichara - Membre habitué https://www.developpez.com
le 14/10/2015 à 15:10
En fait le compilateur pointe sur le 7ième octet de la zone W-matric qui est le même que w-numsso(7:1) il ne se soucie pas du fait que ce caractère appartienne à une zone numérique ou pas. Ce programme a été testé sur COBOL de MIcrofocus, il est possible que certains compilateurs puristes auraient tiqués sur cela mais je crois que cela doit passer sur la plupart des compilateurs. J'ai testé sur le cobol de Fujitsu et on n'a pas d'erreur, ni à la compil ni à l'éxécution.
Ceci étant il plus puriste de référencé w-numsso (7:1).
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
Contacter le responsable de la rubrique Accueil