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 par exemple).
  • " " doit encadrer les opérandes.
  • xxxx constituent les opérandes du micro-pattern.

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). Il est généré pour le micro-pattern OPE uniquement.
  • DS est la Structure de Données.

Micro-pattern CLO

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

Saisissez le micro-pattern de la façon suivante :
      *!CLO "DS"
DS est la Structure de Données indiquée dans l'onglet Lignes -CD du Programme.
Ce micro-pattern génère :
   OPEN  DS-FICHIER

Micro-patterns 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 RN

Ce micro-pattern génère la lecture de l'enregistrement suivant 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 :
      *!RN "DS"
DS est une Structure de Données.
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é.

Micro-pattern RW

Ce micro-pattern génère la réé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 :
      *!RW "SEGM"
SEGM est un Segment.
Ce micro-pattern génère :
  MOVE 0 TO IK
	REWRITE  SEGM
  INVALID KEY MOVE 1 TO IK

Vos commentaires