> Tech > Traitements

Traitements

Tech - Par iTPro - 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 gratuitement cette ressource

Cybersécurité sous contrôle à 360°

Cybersécurité sous contrôle à 360°

Avec Cloud in One, les entreprises ne gagnent pas uniquement en agilité, en modernisation et en flexibilité. Elles gagnent également en sécurité et en résilience pour lutter efficacement contre l’accroissement en nombre et en intensité des cyberattaques. Découvrez l'axe Cybersécurité de la solution Cloud In One.

Tech - Par iTPro - Publié le 24 juin 2010