> Tech > Un exemple RPG simple

Un exemple RPG simple

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

Forts de toutes ces considérations, examinons l’exemple simple d’un programme de sortie écrit en RPG (figure 3). Il présente une structure de données qui contient des informations d’en-tête : utilisateur courant, nombre de tables que l’on est en train d’ouvrir, genre d’ouverture (input, output, update, delete) demandée et valeur de

décalage. La valeur de décalage contient l’adresse de départ de la structure de liste avec une information sur chacune des tables faisant l’objet de l’ouverture. Le programme effectue les actions suivantes :

• Il extrait le nom de l’utilisateur courant demandant l’ouverture de la base de données.

• Il utilise la valeur de décalage dans la structure d’en-tête pour calculer l’adresse de départ de la liste de tables.

• Il extrait de la liste de tables celle(s) à ouvrir.

• Si la table ouverte est FLIGHTS et si l’utilisateur courant demandant l’ouverture est COBBG, le code de retour est mis à 0 et le programme se termine. En mettant le code de retour à 0, on ordonne au gestionnaire de base de données de bloquer la demande d’ouverture.

• Si aucune table n’est FLIGHTS, le programme se termine sans changer le code de retour. Cela permet à la demande d’ouverture de la base de données de se poursuivre.

Téléchargez cette ressource

Guide de technologie 5G pour l’entreprise

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.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010