Rational Programming Patterns for System z

Micro-patterns batch

Ces micro-patterns sont spécifiques à la génération de Programmes batch. Ils assurent les ordres d'entrée-sortie des fichiers en organisation séquentielle, séquentielle indexée ou dynamique.

Les instructions générées sont adaptées à la variante du matériel et aux spécifications de l' appel de la Structure de Données.

Ainsi, par exemple, le même micro-pattern de lecture peut générer READ AT END, READ INVALID KEY, CALL GETSEQ, GETRAN, ou RETURN AT END.

Format de saisie

Vous pouvez insérer ces micro-patterns dans une fonction du code COBOL d'un Programme avec l'éditeur de COBOL PDP, ou dans le code d'une Macro avec l'éditeur de Macro.

Vous devez respecter le format de saisie suivant :
      *{MP "xxxx"
      *}
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 (OPE, R ou W).
  • " " doit encadrer les opérandes.
  • xxxx constituent les opérandes du micro-pattern.
  • *} 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.

Micro-pattern OPE

Ce micro-pattern génère l'ouverture du fichier indiqué en opérande.

Saisissez le micro-pattern de la façon suivante :
      *{OPE "DS"
      *}
DS est la Structure de Données indiquée dans l'onglet Lignes -CD du Programme.
Ce micro-pattern génère :
   OPEN USE DS-FICHIER
où :
  • USE est l'utilisation de la Structure de Données dans le Programme (INPUT, OUTPUT, I-O ou EXTEND).
  • DS est la Structure de Données.

Micro-pattern R

Ce micro-pattern génère la lecture du fichier indiqué en opérande.

Il fait intervenir la variable IK. Cette variable aura une valeur différente de zéro en cas d'exécution anormale de l'instruction générée (fin de fichier, erreur sur clé par exemple). Vous devrez déterminer l'action à entreprendre en fonction de la valeur de cette variable.

Saisissez le micro-pattern de la façon suivante :
      *{R "DS"
      *}
DS est la Structure de Données indiquée dans l'onglet Lignes -CD du Programme.
Si le mode d'accès de la Structure de Données dans l'onglet Lignes -CD du Programme est S : Séquentiel, ce micro-pattern génère :
   MOVE 0 TO IK
   READ DS-FICHIER
   AT END MOVE 1 TO IK
Si le mode d'accès de la Structure de Données dans l'onglet Lignes -CD du Programme est D : Dynamique, ce micro-pattern génère :
   MOVE 0 TO IK
   READ DS-FICHIER NEXT
   AT END MOVE 1 TO IK

Micro-pattern W

Ce micro-pattern génère l'écriture du fichier indiqué en opérande.

Il fait intervenir la variable IK. Cette variable aura une valeur différente de zéro en cas d'exécution anormale de l'instruction générée (fin de fichier, erreur sur clé par exemple). Vous devrez déterminer l'action à entreprendre en fonction de la valeur de cette variable.

Saisissez le micro-pattern de la façon suivante :
      *{W "SEGM"
      *}
SEGM est le Segment indiquée dans l'onglet Lignes -CD du Programme.
Si le mode entrée - sortie de la Structure de Données dans l'onglet Lignes -CD du Programme est T : Tri, ce micro-pattern génère :
  MOVE 0 TO IK
	RELEASE     SEGM
Si le mode entrée - sortie de la Structure de Données dans l'onglet Lignes -CD du Programme n'est pas T : Tri, ce micro-pattern génère :
  MOVE 0 TO IK
	WRITE        SEGM
  INVALID KEY MOVE 1 TO IK
Remarque : La troisième ligne n'est générée que si l'organisation de la Structure de Données dans l'onglet Lignes -CD du Programme est I : Indexé.