Les micro-patterns GFT et GDI permettent
de gérer, depuis une Macro, les itérations dans un Programme, Ecran
ou Serveur appelant cette Macro. Une fois l'instance appelante
générée, le micro-pattern est automatiquement complété dans le COBOL
généré.
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.
Format de saisie
La saisie s'effectue
dans l'éditeur de Macro adapté au modèle. Elle est identique,
excepté l'identifiant du micro-pattern :
*{Gxx
*}
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.
- Gxx 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.
Une fois l'instance appelante générée, les micro-patterns
sont complétés différemment en fonction de l'entité et de la
fonction dans lesquels la Macro est appelée.
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.