GETPDS: Determinazione dell'esistenza di un membro di un set dati partizionato

Come:

Sistemi operativi disponibili: z/OS

Lingue disponibili: reporting, Maintain

La funzione GETPDS determina se un membro specifico di un set di dati partizionati (PDS) esiste e, se esiste, restituisce il nome PDS. Questa funzione viene usata principalmente nelle procedure Dialogue Manager.

Per usare questa funzione, allocare PDS ad un ddname, poiché il ddname è richiesto nella chiamata della funzione. È possibile ricercare più PDS con una chiamata di funzione, se sono concatenati con un ddname.

GETPDS è quasi identico a FINDMEM, tranne che GETPDS fornisce o il nome PDS o restiutisce un set diverso di codici stato.
Inizio pagina
x
Sintassi: Come determinare se un membro PDS esiste
GETPDS(ddname, member, output)

dove:

ddname

A8

Il ddname per cui il PDS viene allocato. Questo valore deve essere un valore letterale lungo otto caratteri, racchiuso tra virgolette singole, o una variabile che contiene il ddname. Se si fornisce un valore letterale inferiore ad otto caratteri, inserire degli spazi finali.

membro

A8

Il membro per cui la funzione ricerca. Questo valore deve essere lungo otto caratteri. Se si fornisce un valore letterale inferiore ad otto caratteri, inserire degli spazi finali.

emissione

A44

Nome del campo che contiene il risultato o il formato del valore di emissione racchiuso tra virgolette singole. La lunghezza massima di un nome PDS è 44. Il risultato è uno dei seguenti:

Nome PDS è il nome del PDS che contiene il membro, se esistente.

*D indica il ddnname non allocato ad un set dati.

*M indica il membro che non esiste nel PDS.

*E indica un errore avvenuto. Per esempio, i set dati allocati a ddname non sono un PDS (e potrebbero essere un file sequenziale).
Esempio: Determinazione se un membro PDS esiste

GETPDS ricerca il membro specificato da &MEMBER, nel PDS allocato per &DDNAME, e restituisce il risultato a &PNAME. Il risultato ha il formato A44. 

-SET &DDNAME = 'MASTER  ';
-SET &MEMBER = 'EMPLOYEE';
-SET &PNAME = '                                            ';
-SET &PNAME = GETPDS(&DDNAME, &MEMBER, 'A44');
-IF &PNAME EQ '*D' THEN GOTO DDNOAL;
-IF &PNAME EQ '*M' THEN GOTO MEMNOF;
-IF &PNAME EQ '*E' THEN GOTO DDERROR;
-*
-TYPE MEMBER &MEMBER IS FOUND IN
-TYPE THE PDS &PNAME
-TYPE ALLOCATED TO &DDNAME
-*
-EXIT
-DDNOAL
-*
-TYPE DDNAME &DDNAME NOT ALLOCATED
-*
-EXIT
-MEMNOF
-*
-TYPE MEMBER &MEMBER NOT FOUND UNDER DDNAME &DDNAME
-*
-EXIT
-DDERROR
-*
-TYPE ERROR IN GETPDS; DATA SET PROBABLY NOT A PDS.
-*
-EXIT

L'emissione è simile alla seguente: 

MEMBER EMPLOYEE IS FOUND IN
THE PDS USER1.MASTER.DATA
ALLOCATED TO MASTER
Esempio: Visualizzazione degli attributi di un PDS

Per visualizzare gli attributi del PDS che contiene un numero specifico, questa procedura Dialogue Manager è in grado di ricercare il membro EMPLOYEE nel PDS allocato al MASTER ddname e, a seconda della sua esistenza, allocare il PDS al TEMPMAST ddname. Le variabili di sistema Dialogue Manager sono usate per visualizzare gli attributi. 

-SET &DDNAME = 'MASTER  ';
-SET &MEMBER = 'EMPLOYEE';
-SET &PNAME = '                                            ';
-SET &PNAME = GETPDS(&DDNAME, &MEMBER, 'A44');
-IF &PNAME EQ '*D' OR '*M' OR '*E' THEN GOTO DDERROR;
-*
DYNAM ALLOC FILE TEMPMAST DA -
   &PNAME SHR
-RUN
-? MVS DDNAME TEMPMAST
-TYPE The data set attributes include:
-TYPE Data set name is: &DSNAME
-TYPE Volume is: &VOLSER
-TYPE Disposition is: &DISP
-EXIT
-*
-DDERROR
-TYPE Error in GETPDS; Check allocation for &DDNAME for
-TYPE proper allocation.
-*
-EXIT

L'emissione campione è: 

THE DATA SET ATTRIBUTES INCLUDE:
DATA SET NAME IS: USER1.MASTER.DATA
VOLUME IS: USERM0
DISPOSITION IS: SHR
WebFOCUS