Rational Programming Patterns for System z

Micro-patterns Dialogue et Pacbench C/S

Vous pouvez insérer ces micro-patterns dans le code COBOL de tous les types d'Ecrans ou de Serveurs avec l'éditeur de COBOL PDP, ou dans le code d'une Macro avec l'éditeur de Macro PDP.

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, GD ou GDB.
  • *} 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.
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 ...).
    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

Micro-patterns d'accès aux Segments

Saisissez ces micro-patterns de la façon suivante :
      *{MP "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.
  • MP 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é.
  • *} 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.
Remarque : Aucun contrôle n'est effectué sur le code 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.
XR Lecture du Segment indiqué en opérande.
XRN Lecture séquentielle du Segment indiqué en opérande. (accès dynamique)
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. Les micro-patterns XP et XRN sont réservés aux Segments définis en catégorie répétitive avec une utilisation en affichage.

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.
    • 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.
    • *} 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.
    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.
    • 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.
    • *} 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.
    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.

Autres micro-patterns