Micro-patterns Dialogue et Client/Serveur

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.
    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, GFA, GFR ou GDB.
Ces micro-patterns génèrent différents types de débranchement :
  • GF génère un débranchement à la fin de la sous-fonction automatique dans laquelle la ligne est insérée.
    Remarque : Il ne peut être indiqué que dans des sous-fonctions de type *X, rattachées à des sous-fonctions automatiques (F20, F25 par exemple).
    Il génère :
      GO TO FFFSS-FN.
    FFSS est le code fonction ou sous-fonction automatique de rattachement.
  • GFA génère un débranchement à la fin des traitements de sélection :
      GO TO END-OF-DISPLAY.
  • GFR génère un débranchement à la fin des traitements de réception :
      GO TO END-OF-RECEPTION.
  • GDB génère un retour au début de l'itération en cours:
      GO TO Fffss-FN.
    ffss est le code fonction ou sous-fonction.

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.
      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.
    • 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.   
    • 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.
      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.
    • 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.   
    • 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.
      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.
    • 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.   
    • 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.
    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.
  • 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 du Segment.
Tableau 1. Micro-patterns d'accès aux Segments
Identifiants 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)

Micro-pattern d'appel d'un traitement élémentaire sur une Vue Logique (Serveur uniquement)

Saisissez ce micro-pattern de la façon suivante :
      *!XT "PARM1 PARM2"
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.
  • XT est l'identifiant du micro-pattern.
  • " " doit encadrer les opérandes.
  • PARM1 PARM2 sont les paramètres. Le nombre des paramètres n'est pas défini et leur valeur dépend du traitement à effectuer.

Le traitement se rapporte à la Vue Logique dans le bloc de laquelle le micro-pattern est inséré. Le micro-pattern *!XT "PARM1 PARM2" génère PERFORM FVVNN-PARM1-PARM2 THRU FVVNN-PARM1-PARM2-FN (où VVNN est la Vue Logique).

Par exemple, le micro-pattern *!XT "CHKD CATR CPXX11" génère PERFORM FVI10-CHKD-CATR-CPXX11 THRU FVI10-CHKD-CATR-CPXX11-FN.

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.
    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.
  • 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).
  • Saisissez Le micro-pattern ERR de la façon suivante :
          *!ERR "N CORUB IND LV=VULO"
    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.
    • ERR est l'identifiant du micro-pattern.
    • " " doit encadrer les opérandes.
    • N est le code de l'erreur, sur une position. Ce code est un caractère alphanumérique libre (sauf 0 et 1 réservés pour la codification des libellés documentaires).
    • CORUB est le code Rubrique variable à laquelle ce code erreur doit être associé. Ce code est obligatoire.
    • IND est une opérande facultative, spécifique aux Serveurs. Il représente un indice. Son code et sa longueur sont libres.
    • LV="VULO" est un attribut facultatif qui ne concerne que les Serveurs. vulo représente le code d'une Vue Logique. Vous indiquez cet attribut s'il n'y a pas de Vue Logique, pour générer le micro-pattern avec cette Vue Logique.
    Le libellé d'erreur associé à cette erreur est indiqué sur les Lignes -GE de l'Ecran. Le curseur sera placé sur la Rubrique et celle-ci prendra les attributs définis pour les Rubriques en erreur.
    Remarque : Pour une Rubrique répétée, l'indice sur lequel porte l'erreur est indiqué (CORUB (2) par exemple).
  • Saisissez Le micro-pattern ERU de la façon suivante :
          *!ERU "NNNN CORUB"
    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.
    • ERU est l'identifiant du micro-pattern.
    • " " doit encadrer les opérandes.
    • NNNN est le code de l'erreur géré par l'utilisateur, sur quatre positions.
    • CORUB est le code Rubrique sur six positions, facultatif.
    Le libellé d'erreur associé à cette erreur est indiqué sur les Lignes -GE du Dialogue. Ce libellé s'affichera sur la ligne des libellés d'erreur (LIERR). Si une Rubrique a été indiquée, le curseur sera placé sur la Rubrique et celle-ci prendra les attributs définis pour les Rubriques en erreur.
    Remarque : Ce micro-pattern ne peut pas être utilisé sur une Rubrique répétée.

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.
    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.
  • 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.
    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.
  • PCB est l'identifiant du micro-pattern.

Vos commentaires