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.
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.
*!MP "XXXX"
où
:Ce micro-pattern génère l'ouverture du fichier indiqué en opérande.
*!OPE "DS"
où DS est
la Structure de Données indiquée dans l'onglet Lignes
-CD du Programme. OPEN USE DS-FICHIER
où
: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.
*!R "DS"
où DS est
la Structure de Données indiquée dans l'onglet Lignes
-CD du Programme. MOVE 0 TO IK
READ DS-FICHIER
AT END MOVE 1 TO IK
MOVE 0 TO IK
READ DS-FICHIER NEXT
AT END MOVE 1 TO IK
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.
*!W "SEGM"
où SEGM est
le Segment indiquée dans l'onglet Lignes -CD du
Programme. MOVE 0 TO IK
RELEASE SEGM
MOVE 0 TO IK
WRITE SEGM
INVALID KEY MOVE 1 TO IK