Micro-patterns de débranchement
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.
Pour tous ces micro-patterns, l'instruction générée se termine systématiquement par un point.
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 sous l'onglet Source COBOL de l'éditeur de design d'une Macro.
*!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.Remarque : Si vous appuyez sur CTRL + barre d'espacement dans l'éditeur COBOL PDP, l'assistant de contenu affiche la liste des micro-patterns adaptés à l'entité et à la position dans le COBOL (WORKING-STORAGE SECTION ou PROCEDURE DIVISION). Les micro-patterns relatifs à la reprise des données Pacbase ne font pas partie de la liste. Chaque micro-pattern de la liste est documenté. Si vous double-cliquez sur l'un d'eux, la balise de début et l'identifiant du micro-pattern sont insérés dans le code. Vous devez alors complétez la déclaration.
- GX est l'identifiant du micro-pattern : GFT ou GDI.
*!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.Remarque : Si vous appuyez sur CTRL + barre d'espacement dans l'éditeur COBOL PDP, l'assistant de contenu affiche la liste des micro-patterns adaptés à l'entité et à la position dans le COBOL (WORKING-STORAGE SECTION ou PROCEDURE DIVISION). Les micro-patterns relatifs à la reprise des données Pacbase ne font pas partie de la liste. Chaque micro-pattern de la liste est documenté. Si vous double-cliquez sur l'un d'eux, la balise de début et l'identifiant du micro-pattern sont insérés dans le code. Vous devez alors complétez la déclaration.
- 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.
Résultat de la génération pour GFT
MOVE ALL ‘1' TO FT GO TO F20.
- Dans une fonction < F39, GFT produit
:
GO TO F39999-ITER-FT. - Dans une fonction > F39, GFT produit
:
GO TO F69999-ITER-FT.
- Dans une fonction de contrôle et mise à jour (Fvunn-CHUP), GFT produit
:
GO TO Fvunn-CHUP-CATR-FN. - Dans une fonction de sélection (Fvunn-SELC), GFT produit
:
GO TO Fvunn-SELC-CATR-FN.
Résultat de la génération pour GDI
GO TO F05.
- Dans une fonction < F39, GDI produit
:
GO TO F39999-ITER-FI. - Dans une fonction > F39, GDI produit
:
GO TO F69999-ITER-FI.
- Dans une fonction de contrôle et mise à jour (Fvunn-CHUP), GDI produit
:
GO TO Fvunn-CHUP-CATR-SRVx-DONE. - Dans une fonction de sélection (Fvunn-SELC), GDI produit
:
GO TO Fvunn-SELC-CATR-SRVx-DONE.
Résultat de la génération pour GB
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
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.Indentation des lignes générées d'un micro-pattern
Vous pouvez indenter les lignes générées d'un micro-pattern en indiquant indent=nn (où nn est un nombre) n'importe où sur la ligne de déclaration du micro-pattern. La nouvelle indentation est prise en compte après une regénération.
L'indentation s'applique à la première ligne générée du micro-pattern. Le décalage avec les lignes suivantes, s'il existe, est conservé par rapport à la première ligne nouvellement indentée. Par exemple, si la première ligne générée a une indentation initiale de 11 et si vous indiquez indent=20 et regénérez, la première ligne aura une indentation de 20 et commencera donc en position 21. L'indentation des lignes suivantes sera décalée de 9 pour conserver le décalage initial.
- Elles ne doivent pas se situer au-delà de la colonne 72.
- Elles doivent commencer en marge B du COBOL si elles se situent en PROCEDURE DIVISION ou proviennent d'un micropattern WI, WE ou WS.
- Les niveaux 01 et 77 des lignes générées à partir du micro-pattern WF doivent se situer en marge A du COBOL.
Si au moins une ligne générée ne peut pas être indentée avec l'indentation demandée, toutes les lignes générées sont positionnées avec l'indentation par défaut. L'indication indent=nn est donc ignorée et l'avertissement Valeur indentation erronée apparaît sur la ligne de déclaration du micropattern dans l'éditeur COBOL PDP et dans la vue Erreurs.