Micro-patterns d'appel de Rubrique dans les zones de travail et de liens
Ces micro-patterns appellent des Rubriques dans les zones de travail et de liens d'un Programme, d'un Ecran, d'un Serveur ou d'une Macro. Après une regénération du Programme, de l'Ecran ou du Serveur, ces micro-patterns sont complétés avec le format ou l'usage des Rubriques appelées, tels qu'ils sont déclarés dans le référentiel.
Format de saisie
Vous devez déclarer une donnée COBOL sans le format.
Pour appeler une Rubrique en tant que zone de travail et de liens, vous devez saisir un des deux groupes de lignes suivants. Le format (PICTURE COBOL) de la Rubrique est généré dans tous les cas après la ligne d'appel de la Rubrique.
- Saisie sur deux lignes
:
*!WI 01 DDSS-CORUB VALUE SPACE.Remarque : Dans ce cas, la PICTURE sera générée entre la ligne 01 DDSS-CORUB et la ligne VALUE SPACE. - Saisie sur une seule ligne
:
*!WI 01 DDSS-CORUB VALUE SPACERemarque : Dans ce cas, la PICTURE sera générée après la ligne 01 DDSS-CORUB.
- *! 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.
- WI est l'identifiant du micro-pattern dans l'exemple. Vous pouvez indiquer
un des identifiants suivants :
- WI pour récupérer le format interne de la Rubrique,
- WE pour récupérer le format d'entrée de la Rubrique,
- WS pour récupérer le format de sortie de la Rubrique.
- 01 est le niveau COBOL.Remarque : Dans une Macro, le niveau COBOL peut être paramétré.
- DDSS-CORUB est le nom de données COBOL :
- DD est la Structure de Données,
- SS est le Segment,
- CORUB est la Rubrique, sur 6 caractères maximum. Elle doit être précédée par un tiret.
- VALUE SPACE est l'exemple de l'attribution de la valeur SPACE
à la Rubrique. Cette attribution est facultative. Vous pouvez l'indiquer sur la même ligne que
l'appel de la Rubrique ou sur la ligne suivante.
- Si la VALUE est saisie sur la même ligne, la PICTURE sera générée sur la ligne suivante.
- Si la VALUE est saisie sur la ligne suivante, la PICTURE sera générée entre la première et la deuxième ligne.
*!WI
$1
ou
*!WI
01 DDSS-RUB$1
Résultat de la génération
- Pour une Rubrique avec un format X et un usage D:
DISPLAY, le micro-pattern suivant est généré
:
*!WI 01 DDSS-CORUB PICTURE X. - Pour une Rubrique avec un format S9(4) et un usage 3:
COMPUTATIONAL-3, le micro-pattern suivant est généré
:
*!WI 01 DDSS-CORUB PICTURE S9(4) COMP-3. - Pour une Rubrique avec un format non renseigné et un usage J:
COMPUTATIONAL-6, le micro-pattern suivant est généré
:
*!WI 01 DDSS-CORUB COMP-6.
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.