Téléchargé 7 fois
Vote des utilisateurs
0 
0
Détails
Référencé dans
Navigation
Tester No De Sécurité Sociale
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
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
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
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
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).
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.