Tous ces micro-patterns génèrent des ordres GO
TO, soit dans une itération, soit dans une fonction ou sous-fonction.
Les micro-patterns GFT et GDI permettent
de gérer les itérations dans un Programme, Ecran ou Serveur. Les micro-patterns GB et GT permettent
de gérer les débranchements dans des fonctions ou sous-fonctions.
GFT provoque l'abandon de l'itération
de plus haut niveau en cours alors que GDI provoque
le retour au début de l'itération de plus haut niveau en cours.
GB provoque
l'abandon de l'itération en cours, dont le niveau est indiqué
en opérande, avec un retour en tête de la boucle.
GT provoque
le débranchement à la fin de la fonction ou sous-fonction à laquelle
appartient l'instruction et dont le niveau est indiqué en opérande.
Remarque : Si
la fonction ou sous-fonction est de type IT et si
elle est utilisée avec une fonction ou sous-fonction de type EL,
les micro-patterns GB et GT à ce
niveau renvoient au début de la fonction ou sous-fonction de type EL.
Pour
tous ces micro-patterns, l'instruction générée se termine systématiquement
par un point.
Remarque : Il existe d' autres micro-patterns de
débranchement : GF, GFA, GD et GDB.
Comme ils sont spécifiques aux modules Dialogue et Pacbench C/S, ils
sont documentés avec les autres micro-patterns spécifiques à ces modules.
Format de saisie
La saisie s'effectue
dans le code COBOL d'un Programme, Ecran ou Serveur avec l'éditeur
de COBOL PDP,
ou dans le code d'une Macro avec l'éditeur PDP de Macro.
La
saisie des micro-patterns de gestion des itérations est la suivante
:
*{Gx
*}
où :
- *{ est la balise de début du micro-pattern,
obligatoire. Le * doit être saisi en colonne 7, réservée
aux commentaires dans le code COBOL, et le { doit
être saisi en colonne 8.
- Gx est l'identifiant du micro-pattern : GFT ou GDI.
- *} est la balise de fin du micro-pattern,
obligatoire. Le * doit être saisi en colonne 7,
réservée aux commentaires dans le code COBOL, et le } doit
être saisi en colonne 8.
Remarque : Une fois l'instance regénérée, les micro-patterns
sont complétés différemment en fonction de l'entité et de la
fonction dans lesquels le micro-pattern est indiqué.
La
saisie des micro-patterns de débranchement dans une fonction ou sous-fonction
est la suivante :
*{Gx "nn"
*}
où :
- *{ est la balise de début du micro-pattern,
obligatoire. Le * doit être saisi en colonne 7, réservée
aux commentaires dans le code COBOL, et le { doit
être saisi en colonne 8.
- Gx est l'identifiant du micro-pattern : GF ou GT.
- " " doit encadrer les opérandes.
- nn représente un niveau de fonction ou sous-fonction.
- *} est la balise de fin du micro-pattern,
obligatoire. Le * doit être saisi en colonne 7,
réservée aux commentaires dans le code COBOL, et le } doit
être saisi en colonne 8.
Résultat de la génération pour GFT
Dans
un Programme généré,
GFT positionne les indicateurs
de fin de traitement des fichiers et débranche à la fonction de fin
de programme (
F20) :
MOVE ALL ‘1' TO FT GO TO F20.
Dans un Ecran (Ecran standard ou client) généré,
GFT débranche
à la fin du traitement des catégories.
- Dans une fonction < F39, GFT produit
:
GO TO F39999-ITER-FT.
- Dans une fonction > F39, GFT produit
:
GO TO F69999-ITER-FT.
Dans un Serveur généré,
GFT débranche
à la fin du traitement des catégories :
Résultat de la génération pour GDI
Dans
un Programme généré,
GDI provoque le retour au début
de l'itération (
F05) :
GO TO F05.
Dans un Ecran (Ecran standard ou client) généré,
GDI provoque
le passage à l'occurrence suivante de la catégorie en cours ou
à la catégorie suivante.
- Dans une fonction < F39, GDI produit
:
GO TO F39999-ITER-FI.
- Dans une fonction > F39, GDI produit
:
GO TO F69999-ITER-FI.
Dans un Serveur généré,
GDI provoque
le passage à l'occurrence suivante de la catégorie en cours ou
à la catégorie suivante.
Résultat de la génération pour GB
La
génération produit la ligne suivante :
GO TO Fffss-900.
dans
laquelle
ffss est la fonction ou sous-fonction dont
le niveau est indiqué en opérande.
Résultat de la génération pour GT
La
génération produit la ligne suivante :
GO TO Fffss-FN.
dans
laquelle
ffss est la fonction ou sous-fonction à
laquelle appartient l'instruction et dont le niveau est indiqué en
opérande.