Voyons un deuxième exemple utilisant l'instruction Set, où l'on peut compter le nombre de chiffres d'un champ numérique. En RPG, pour déterminer la longueur réelle d'un champ caractère comme un champ description ou nom, on combine les fonctions intégrées %Trim et %Len. Mais comment faire de même pour un champ
Comptage des chiffres présents dans une zone numérique
numérique ?
Supposons par exemple que j’aie défini un champ numérique 11,0 contenant la valeur
5729. Je peux utiliser l’instruction SQL Set pour déterminer par programme que
ce champ contient actuellement un nombre de quatre chiffres. Mais avant d’apprendre
à utiliser l’instruction Set à cet effet, voyons quelques préliminaires.
Le logarithme de base 10 d’un entier (un nombre entier positif) comporte toujours
un entier et une fraction. La partie entière du logarithme est inférieure de un
au nombre de chiffres contenus dans le nombre original. Par exemple, le logarithme
de 57 est approximativement 1,76. La partie entière du logarithme est 1, c’est-à -dire
un de moins que le nombre de chiffres (deux) dans le nombre 57.
En utilisant ce principe, le fragment de code de la figure 2 calcule le nombre
de chiffres dans un champ 11, 0. A noter toutefois qu’il s’agit là d’un calcul
d’exécution. Bien que le champ ANumber soit défini comme 11, 0, cela ne signifie
pas que ce calcul produit 11. En réalité, après l’exécution de l’instruction Set,
le contenu du champ NumDigits dépend du nombre qui se trouve dans ANumber à l’exécution.
Si ANumber contient alors 5729, le calcul produira une valeur NumDigits de 4 et
pas de 11.
Téléchargez cette ressource
Mac en entreprise : le levier d’un poste de travail moderne
Ce livre blanc répond aux 9 questions clés des entreprises sur l’intégration du Mac : sécurité, compatibilité, gestion, productivité, coûts, attractivité talents, RSE et IA, et l’accompagnement sur mesure proposé par inmac wstore.
Les articles les plus consultés
- Afficher les icônes cachées dans la barre de notification
- Partager vos images, vidéos, musique et imprimante avec le Groupe résidentiel
- Les 6 étapes vers un diagnostic réussi
- N° 2 : Il faut supporter des langues multiples dans SharePoint Portal Server
- Activer la mise en veille prolongée dans Windows 10
Les plus consultés sur iTPro.fr
- Veeam passe à la vitesse supérieure avec iResOps pour Microsoft 365
- Visibilité, réputation, clients : ce que les petites entreprises ne pourront plus déléguer en 2027
- IA souveraine : l’Europe avance, mais son interconnexion prend du retard
- Cloud public : la sécurité des données s’impose comme premier critère pour les agents publics
Articles les + lus
Continuer avec Exchange Server : quelles conséquences ?
Raccourcis Réseau et Navigateur : le kit de Diagnostic des Professionnels IT
Raccourcis PowerShell et Windows Terminal pour les Professionnels IT
Commandes Windows 11 : le Guide des Outils accessibles avec Win + R
Sécurité : une approche dans la durée avant tout
À la une de la chaîne Tech
- Continuer avec Exchange Server : quelles conséquences ?
- Raccourcis Réseau et Navigateur : le kit de Diagnostic des Professionnels IT
- Raccourcis PowerShell et Windows Terminal pour les Professionnels IT
- Commandes Windows 11 : le Guide des Outils accessibles avec Win + R
- Sécurité : une approche dans la durée avant tout
