Automatiser la création des membres de fichiers

paramètre, il
est générique et utilisable dans de multiples applications.

Bien qu’il existe d’autres méthodes de génération de nouveaux noms de membres,
je choisis d’extraire le dernier nom de membre, de mettre en sous-chaîne ses neuf
derniers caractères, que j’utiliserai comme nombre pour générer un nouveau nom
de membre. Le premier mois, le nouveau nom de membre est P000000001 ; le deuxième
mois, il est P000000002 ; et ainsi de suite.

Les lignes 7 à  11 du programme contiennent les déclarations de variables nécessaires.
En ligne 16, j’utilise la commande RTVJOBA (Retrieve Job Attribute) pour obtenir
la date courante. Ensuite, je dois obtenir le nom du dernier membre utilisé dans
mon fichier. J’ai pour cela utilisé la commande RTVMBRD (Retrieve Member Description).
Le paramètre MBR(*LAST) indique que je veux le dernier membre dans le fichier
extrait dans la variable &MBR.

En lignes 22 à  24, je mets en sous-chaîne la partie numérique de &MBR, ajoute
1 au résultat, puis retransfère le résultat dans une variable caractère afin de
pouvoir créer le nom de membre complet, en ligne 25. Enfin, j’utilise la commande
ADDPFM (Add Physical File) pour créer un nouveau membre dans le fichier PODHR,
en utilisant mon nom unique comme nom de membre. J’utilise la date courante extraite
précédemment dans le programme dans le cadre de la description du membre. A présent,
avec la substitution) appropriée (OVRDBF FILE(POHDR) MBR(P000000001)) je peux
accéder aux membres mensuels du fichier PODHR à  partir de n’importe quelle application,
et peux exécuter ce programme par l’intermédiaire de mon planificateur de travaux,
pour créer automatiquement un nouveau membre le premier jour de chaque mois.

J’espère que ce rapide coup d’oeil aux membres de fichiers vous suggère quelques
idées d’utilisation. La logique que je présente pour créer un nom de membre unique
peut, bien entendu, s’appliquer facilement à  d’autres applications.