Vous pouvez insérer ces micro-patterns dans le code de
tous les types d'Ecrans ou de Serveurs depuis l'éditeur
de COBOL PDP,
ou dans le code des Macros depuis l’onglet Source COBOL.
Micro-patterns de débranchement
Ces micro-patterns
génèrent des ordres GO TO.
Saisissez ces micro-patterns
de la façon 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 : GF, GFA, GFR ou GDB.
Ces micro-patterns génèrent différents types de débranchement
:
Micro-patterns d'appel d'Ecran ou Ecran
C/S
- Le micro-pattern OSC appelle l'Ecran ou
l'Ecran C/S indiqué en opérande.
Saisissez-le de la façon suivante
:
*!OSC "SCNNNN"
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.
- OSC est l'identifiant du micro-pattern.
- " " doit encadrer les opérandes.
- SCNNNN représente le code de l'Ecran ou
Ecran C/S appelé (CL0001 par exemple) ou son nom
externe.
Le micro-pattern
OSC génère :
MOVE 'SCEXTERN' TO 5-NNNN-PROGE
MOVE 'O' TO OPER
GO TO F4040.
Où
- SCEXTERN représente le nom externe (sur huit
caractères) de l'Ecran ou Ecran C/S SCNNNN.
- NNNN représente les quatre derniers caractères
du code Ecran ou Ecran C/S (0001 par exemple).
- Le micro-pattern OSD appelle l'Ecran ou
l'Ecran C/S indiqué en opérande, après exécution des traitements
de réception.
Saisissez-le de la façon suivante :
*!OSD "SCNNNN"
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.
- OSD est l'identifiant du micro-pattern.
- " " doit encadrer les opérandes.
- SCNNNN représente le code de l'Ecran ou
Ecran C/S appelé (CL0001 par exemple) ou son nom
externe.
Le micro-pattern
OSD génère :
MOVE 'SCEXTERN' TO 5-NNNN-PROGE
MOVE 'O' TO OPER.
Où
- SCEXTERN représente le nom externe (sur huit
caractères) de l'Ecran ou Ecran C/S SCNNNN.
- NNNN représente les quatre derniers caractères
du code Ecran ou Ecran C/S (0001 par exemple).
- Le micro-pattern OTP appelle l'Ecran ou
Ecran C/S dont le nom externe est indiqué en opérande.
Saisissez-le
de la façon suivante :
*!OTP "SCEXTERN"
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.
- OTP est l'identifiant du micro-pattern.
- " " doit encadrer les opérandes.
- SCEXTERN représente le nom externe (sur huit
caractères) de l'Ecran ou Ecran C/S SCNNNN.
Le micro-pattern
OTP génère :
MOVE 'SCEXTERN' TO 5-NNNN-PROGE
MOVE 'O' TO OPER
GO TO F4040.
Où
- NNNN représente les quatre derniers caractères
du code Ecran ou Ecran C/S (0001 par exemple).
Micro-patterns d'accès aux Segments
Saisissez
ces micro-patterns de la façon suivante :
*!XAA "SEGM"
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.
- XAA est l'identifiant du micro-pattern (voir
le tableau avec tous les identifiants possibles).
- " " doit encadrer les opérandes.
- SEGM représente le Segment accédé.
Remarque : Aucun contrôle n'est effectué sur le code Segment.
Tableau 1. Micro-patterns d'accès aux SegmentsIdentifiants de micro-patterns |
Résultats de génération |
XD |
Suppression du Segment indiqué en opérande. |
XP |
Lecture du premier enregistrement en accès dynamique.
Quel que soit le système, ce micro-pattern fournit toujours un enregistrement. Réservé
aux Segments définis en catégorie répétitive avec une utilisation
en affichage.
|
XR |
Lecture du Segment indiqué en opérande. |
XRN |
Lecture séquentielle du Segment indiqué en opérande.
(accès dynamique) Réservé aux Segments définis en catégorie répétitive
avec une utilisation en affichage.
|
XRU |
Lecture pour mise à jour du Segment indiqué
en opérande. |
XRW |
Réécriture du Segment indiqué en opérande. |
XUN |
Libération du Segment indiqué en opérande. |
XW |
Ecriture du Segment indiqué en opérande. |
Remarque : Pour Dialogue, l'utilisation de ces micro-patterns
peut entraîner la génération de la fonction d'accès correspondante.
Dans le cas où le Segment indiqué est une table ou une vue SQL, il
faut s'assurer que le Segment est défini dans l'Ecran avec
une utilisation soit en réception soit en affichage.
Ces
micro-patterns génèrent les éléments suivants :
- Un PERFORM de l'accès physique au Segment
indiqué en opérande
- L'ordre correspondant en fonction F80 pour les fichiers en organisation
V (VSAM)
Autre micro-pattern lié à l'accès aux Segments
Le
micro-pattern Yaa génère l'étiquette F80-SEGM-AA,
utilisée lors du remplacement des accès physiques au Segment. indiqué
en opérande.
Saisissez le micro-pattern
YAA de
la façon suivante :
*!YAA "SEGM"
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.
- YAA est l'identifiant du micro-pattern. AA représente
les deux derniers caractères de l'opérateur d'accès aux
Segments (R pour READ, W pour WRITE, RW pour REWRITE ou D pour DELETE...).
- " " doit encadrer les opérandes.
- SEGM représente le Segment accédé.
Remarque : Aucun contrôle n'est effectué sur les valeurs de l'opérateur
d'accès ou sur le code Segment.
Micro-patterns de positionnement d'erreurs spécifiques
Ces
erreurs sont des erreurs détectées par des traitements spécifiques.
Elles peuvent être associées à une Rubrique d'un Ecran, Ecran
C/S ou Serveur (micro-pattern
ERR) ou être communes
à tous les Ecrans d'un Dialogue ou Serveurs d'un Dialogue
Serveur (micro-pattern
ERU).
Micro-pattern de génération des étiquettes dans le
Composant Applicatif
Le micro-pattern Y ne
peut être indiqué que dans un Composant Applicatif. Il permet de générer
l'étiquette de la fonction ou sous-fonction automatique quand celle-ci
a été remplacée par traitement spécifique (*R).
Saisissez
Le micro-pattern
Y de la façon suivante :
*!Y
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.
- Y est l'identifiant du micro-pattern.
Micro-pattern de génération de la liste des PCB
Le
micro-pattern PCB peut être indiqué dans la WORKING-STORAGE
SECTION ou PROCEDURE DIVISION d'un Ecran
standard, Ecran client ou Serveur. Il permet de générer la liste des
PCB associés au PSB. Le PSB est indiqué dans l'Ecran (option PSB= dans
les Lignes -GG) ou dans le Dialogue (onglet Complément).
Saisissez
Le micro-pattern
PCB de la façon suivante :
*!PCB
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.
- PCB est l'identifiant du micro-pattern.