Réaménagement de 101 (3)

dit, le programme boucle
dans une logique qui détermine l’état
de traitement courant et exécute un
bloc de code approprié.

En A dans la section définitions, je
définis une constante pour représenter
chacun des états possibles. A n’importe
quel moment, le programme doit travailler
sur l’une de ces étapes. Le champ
CurrentStep détermine l’étape sur laquelle
le programme travaille à  cet instant.
Le traitement commence par définir
l’étape courante pour qu’elle
ordonne au programme de demander
une abréviation d’état. Le programme
fait alors une boucle dans un bloc Select
jusqu’à  ce que l’état ordonne au programme
de sortir (CurrentStep =
StepExit). Le bloc Select contient une
section pour chacune des quatre étapes
de traitement. A la fin de chacune de ces
sections, le programme définit la valeur
de CurrentStep pour contrôler la section section
du bloc Select qui s’exécutera au
prochain passage dans la boucle.

Après quelques détails liés à  la compilation,
nous en aurons fini avec la nouvelle
application. Tout d’abord, il nous
faudra un répertoire de liaison nommé
AppBndDir. Après avoir compilé les
programmes de service, vous ajouterez
une entrée pour chacun d’eux à  ce répertoire
de liaison. Vous compilerez les
programmes de service pour exécution
dans le groupe d’activation de l’appelant
en spécifiant ActGrp(*New) sur la
commande CrtSrvPgm (Create Service
Program). Certaines des procédures
présentes dans les programmes de service
ouvrent des fichiers, mais pour des
raisons de performances elles ne les ferment
pas à  chaque passage dans la procédure.
Pour être certain que le système
se débarrassera de ces ressources à  la
fin, il faut compiler le programme
City002 pour exécution dans un nouveau
groupe d’activation, en spécifiant
ActGrp(*New) sur la commande
CrtPgm (Create Program). Quand
City002 se termine, le groupe d’activation
se termine lui aussi et le système libère
des ressources.