FINDMEM : Trouver un membre d'un jeu de données partitionné

La fonction FINDMEM, disponible seulement sous z/OS, détermine si un membre spécifique d'un jeu de données partitionné (PDS) existe. Cette fonction est utilisée principalement dans les procédures du gestionnaire de dialogue.

Pour utiliser cette fonction, allouez le PDS à un ddname parce que le ddname est requis dans l'appel de fonction. Vous pouvez rechercher plusieurs PDS avec un seul appel de fonction s'ils sont concaténés en un seul ddname.

Syntaxe : Trouver un membre d'un jeu de données partitionné

FINDMEM(ddname, member, output)

où :

ddname

est le ddname auquel le PDS est alloué. Cette valeur doit obligatoirement être un littéral sur huit caractères entouré de guillemets simples, ou une variable contenant le ddname. Si vous fournissez un littéral de moins de huit caractères, complétez-le avec des espaces supplémentaires.

member

est le membre que vous recherchez. Cette valeur doit avoir une longueur de huit caractères. Si vous fournissez un littéral de moins de huit caractères, complétez-le avec des espaces supplémentaires.

output

est le champ qui contient le résultat, ou le format de la valeur de sortie entre guillemets simples. Le résultat peut être l'un des éléments suivants :

Y indique que le membre existe dans le PDS.

N indique que le membre n'existe pas dans le PDS.

E indique qu'une erreur est survenue. Soit le jeu de données n'est pas alloué au ddname, soit le jeu de données alloué au ddname n'est pas un PDS (peut être un fichier séquentiel).

Haut de page

Exemple : Trouver un membre d'un jeu de données partitionné

FINDMEM recherche le fichier maître EMPLOYEE dans le PDS alloué au ddname MASTER, et retourne le résultat dans la variable &FINDCODE. Le résultat a le format A1 :

-SET &FINDCODE = FINDMEM('MASTER  ', 'EMPLOYEE', 'A1');-IF &FINDCODE EQ 'N' GOTO NOMEM;
-IF &FINDCODE EQ 'E' GOTO NOPDS;
-TYPE MEMBER EXISTS, RETURN CODE = &FINDCODE
TABLE FILE EMPLOYEE
PRINT CURR_SAL BY LAST_NAME BY FIRST_NAME
WHERE RECORDLIMIT EQ 4;
END
-EXIT
-NOMEM
-TYPE EMPLOYEE NOT FOUND IN MASTER FILE PDS
-EXIT
-NOPDS
-TYPE ERROR OCCURRED IN SEARCH
-TYPE CHECK IF FILE IS A PDS ALLOCATED TO DDNAME MASTER
-EXIT

La sortie est :

LAST_NAME	FIRST_NAME	CURR_SAL
--------	----------	--------
JONES SMITH STEVENS	DIANE MARY RICHARD ALFRED	$18,480.00 $13,200.00 $9,500.00 $11,000.00