Exists : Procédure de test de l’existence d’un objet sur IBM i

Voici une API pour contrôler l’existence d’un objet sur un IBM i.

La copie de déclaration API_EXISTS comprend plusieurs déclarations, une pour la déclaration de la procédure en question et une pour l’usage de API QUSROBJD qui récupère la description d’un objet IBM i.

Continuer la lecture de Exists : Procédure de test de l’existence d’un objet sur IBM i

Une procédure RPGLE de la Formule de Luhn

Petite définition de la Luhn:

La formule de Luhn permet de vérifier la validité d’une suite de chiffre. Ex:SIREN, N°CB, N°PS (Médecin praticien, etc…). Le nombre est lu de droite à gauche. Les chiffres en position impaire restent tel que et les chiffres en position paire sont multipliées par 2. Tous les chiffres résultants sont ajoutés. Exemple 456:

Chiffres      4             5           6
Position      3             2           1
Résultats     4            10           6

Résultat 4 + 1 + 0 + 6 = 11

Un nombre Luhn est validé si le résultat est divisible par 10. Dans l’exemple précédent, le nombre n’est pas valide; 11 n’est pas divisible par 10. Un nombre valide est par exemple 455. Continuer la lecture de Une procédure RPGLE de la Formule de Luhn