Tous les téléchargements de marc.bichara

Ce code tester en Javascript un controle et renvoi vrai (true) si le controle contient les 15 digits d'un No de Sécurité Sociale.
Il est donné pour enrichir le site des codes du même type pour javascript ayant été donné ailleurs.

Permet de tester un No de Sirete par l'algorithme de Luhn
Paramètres d'Entrée No de Sirete, et indicateur d'erreur
En sortie indicateur d'erreur = 1 si le Sirete n'est pas bon, à 0 si le Sirete est bon
Il marche sur tout type de compilateur cobol , aucune spécificité d'un quelconque constructeur étant employé

INSPECT REPLACING en Cobol ne permet de remplacer dans une chaîne de caractères une chaîne spécifique que par une chaîne de même longueur.
Ainsi vous pouvez donner l'ordre
INSPECT w-ZONE replacing "TOTO" by "ZOZO", mais vous avez une erreur si vous donner l'ordre
INSPECT w-ZONE replacing "TOTO" by "T"
le code qui suit donne une méthode pour le faire par une astuce et sans trop se fatiguer dans l'exemple donné on remplace " 000000;" par ";"
voila la portion de code qui le fait l'astuce vient de l'utilisation de deux séparateurs (qui ne doivent pas figurer dans le texte de base) dont la longueur totale représente avec la chaîne remplaçante un longueur égale à la chaîne à remplacer.


Le code a téléchar ... Voir la suite