> Tech > Traitements

Traitements

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

Traitement principal (Figure 2)
Si la zone de positionnement est remplie, le programme ajuste le fichier à  substituer.
Les indicateurs de couleur variant de 1 à  6, la variable de retour Tri est utilisée comme indice.
Ceux-ci sont initialisés à  l'affichage grâce aux SETOF dans le DSPF. Pour le RPG,

Traitements

les champs TRI et
ORDRE du DSPF sont remplacés par les
champs I et J.
Le changement de couleur de plusieurs
colonnes en une seule ligne de
code programme! Qui dit mieux !
Le changement de tri ou de
positionnement, détecté par les indicateurs
10 et 11, déclenche le rechargement
du sous fichier.
Pour un positionnement, un sousprogramme
sera appelé pour régler un
message non monitorable (voir
contraintes positionnement).

Le rafraîchissement de la liste
(Figure 3)

Le rafraîchissement de la liste consiste à 
recharger simplement le sous fichier.
Description du sous-programme
REFRESH:

  • Fermeture du fichier lu antérieurement.
  • Appel du programme CLP de tris et/ou
    positionnement (sélection de la vue) :
    SELTRI

  • Ouverture du fichier.
  • Clear du sous fichier.
  • Rechargement du sous fichier avec le
    fichier substitué.
    La fermeture et l’ouverture sont importantes
    car elles permettent la prise en
    compte de la substitution.

Spécificité langage :
Pour le COBOL il faut convertir la valeur
Tri et Ordre en alphanumérique.

La sélection des vues (Figure 4)
Ce programme substitue le fichier lu par
un fichier logique en adéquation avec le
tri demandé.
Il permet de changer de vues logiques
et éventuellement de se positionner
sur un critère donné.
Description du programme SELTRI :

  • Suppression des overrides en cours.
  • Substitution du fichier lu par un fichier logique.

Spécificité langage :
La déclaration des &Tri et &Ordre sont mis en *dec pour des facilités
d’appel depuis un RPG.

Les comparaisons sont numériques contrairement au COBOL.

Téléchargez cette ressource

Préparer l’entreprise aux technologies interconnectées

Préparer l’entreprise aux technologies interconnectées

Avec la « quatrième révolution industrielle », les environnements hyperconnectés entraînent de nouveaux risques en matière de sécurité. Découvrez, dans ce guide Kaspersky, comment faire face à cette nouvelle ère de vulnérabilité.

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