IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 8 fois
Vote des utilisateurs
0 
0 
Détails
Éditeur : marcob
Licence : Non renseignée
Mise en ligne le 14 août 2015
Langue : Français
Référencé dans
Navigation

Tester No De Sécurité Sociale

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
Avatar de escartefigue
Modérateur 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
Membre régulier 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.