FINDMEM: Cómo buscar un miembro de un conjunto de datos con particiones

La función FINDMEM, únicamente disponible en z/OS, determina si existe un miembro específico de un conjunto de datos con particiones (PDS). Esta función se utiliza, principalmente, en procedimientos de Dialogue Manager.

Para usar esta función, asigne el PDS a ddname, ya que ddname es obligatorio en la llamada de función. Puede buscar varios PDS con una llamada de función, si están concatenados a un ddname.

Sintaxis: Cómo Buscar un miembro de un conjunto de datos con particiones

FINDMEM(ddname, member, output)

donde:

ddname

Es el ddname al que se ha asignado el PDS. Este valor debe ser un literal de ocho caracteres, entre comillas simples, o una variable que contenga el ddname. Si introduce un literal de menos de ocho caracteres, rellénelo con espacios finales.

member

Es el miembro que está buscando. Este valor debe tener ocho caracteres de longitud. Si introduce un literal de menos de ocho caracteres, rellénelo con espacios finales.

output

Es el nombre del campo que contiene el resultado, o el formato del valor de salida puesto entre comillas solas. El resultado es uno de los siguientes:

Y indica que el miembro existe en el PDS.

N indica que el miembro no existe en el PDS.

E indica que se ha producido un error. El conjunto de datos no está asignado al ddname o, si lo está, pero no se trata de un PDS (puede que sea un archivo secuencial).

Principio de página

Ejemplo: Cómo buscar un miembro de un conjunto de datos con particiones

FINDMEM busca el archivo máster EMPLOYEE en el PDS asignado al ddname MASTER, y devuelve el resultado a la variable &FINDCODE. El resultado está en formato 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 salida es:

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