A présent, mettons en oeuvre des MODS dans un programme simple (figure 3). L'entreprise XYZ a établi un seuil de $400.000 pour la masse salariale totale de ses cadres supérieurs les mieux rémunérés. Ce seuil de masse salariale ne s'applique qu'à l'ensemble des employés percevant plus de $50.000 par an.
Les MODS en action
A chaque période de
paye, un programme est exécuté pour vérifier si le seuil de la masse salariale
a été dépassé. Si le salaire combiné de tous les employés qui gagnent plus de
$50.000 dépassent le seuil défini, alors un rapport est imprimé.
L’algorithme du programme consiste à lire tous les enregistrements du fichier
employés. Si le salaire d’un employé dépasse les $50.000, son nom, sa date d’embauche
et son salaire sont inscrits dans une occurrence distincte de la MODS appelé OPMODS
et son salaire est additionné à une variable cumulant les salaires et appelée
TOTSAL. Lorsque tous les enregistrements ont été lus, la sous-routine CHECK est
invoquée pour vérifier si le salaire total des employés qui perçoivent plus de
$50.000 dépassent les $400.000. Si c’est le cas, le programme imprime un enregistrement
correspondant à chaque employé décrit dans OPMODS.
En A, CUROCR est incrémenté d’une unité afin qu’une occurrence différente de la
structure de données soit utilisée pour chaque employé gagnant plus de $50.000.
En B, la même logique (utilisant l’instruction OCUR) extrait les entrées pour
imprimer le rapport.
L’intérêt d’utiliser des MODS dans ce programme consiste dans l’utilisation de
la structure des données pour charger des informations susceptibles d’être utilisées
plus tard. En effet, il n’est pas souhaitable d’imprimer chaque enregistrement
distinct au fur et à mesure de la lecture du fichier employés car, les enregistrements
ne doivent être imprimés que si et seulement si, à l’issue de la lecture de la
totalité du fichier employés, le seuil de la masse salariale des cadres supérieurs
a été dépassé. Une MODS permet d’enregistrer les informations dans une structure
facile d’emploi et ce, pour un usage ultérieur. Toutefois, à l’instar des tableaux,
faites attention à ne pas utiliser plus d’occurrences que vous n’en avez déclarées
dans la structure de données.
Téléchargez cette ressource
Guide de technologie 5G pour l’entreprise
Pourquoi la 5G est-elle faite pour votre entreprise ? La 5G peut améliorer la vitesse, la fiabilité et la capacité de votre réseau, permettant ainsi une meilleure collaboration, une productivité accrue et une prise de décision plus rapide. Notre livre blanc " The Big Book of Enterprise 5G" vous fournit les informations stratégiques dont vous avez besoin pour prendre des décisions éclairées et préparer votre entreprise à prospérer dans l'ère de la 5G. Cradlepoint, part of Ericsson est le leader mondial des solutions de réseau sans fil 4G LTE et 5G fournies via le cloud. Connectez vos employés, lieux et objets avec la 4G LTE et la 5G pour un WAN sans fil d'entreprise.
Les articles les plus consultés
A travers cette chaîne
A travers ITPro
