LOOKUP(field);

dove:

campo

Nome del campo da richiamare nel file con riferimento incrociato. Se il nome del campo esiste anche nell’origine dati host, è necessario definirlo qui. Non includere uno spazio tra LOOKUP e la parentesi sinistra.

Nota: LOOKUP non usa un argomento di emissione.

È possibile usare un valore campo in una istanza di segmento host per ricercare un segmento a riferimento incrociato. Eseguire i seguenti:

• Nel comando MATCH che seleziona l'istanza segmento host, attivare il campo host con il comando ACTIVATE.
• Nello stesso comando MATCH, codificare LOOKUP dopo il comando ACTIVATE.

Questa richiesta visualizza l'ID dipendente, la data dell'aumento stipendio, il nome dipendente e la posizione ottenuto dopo l'aumento di stipendio:

• L'ID e il nome dipendente (EMP_ID) si trovano nel segmento principale.
• La data di aumento (DAT_INC) si trova nel segmento host discendente.
• La posizione del lavoro si trova nel segmento di riferimento incrociato.
• Il campo condiviso è JOBCODE. Non si immette mai il codice lavoro; i valori sono memorizzati nell'origine dati.

La richiesta è:

MODIFY FILE EMPLOYEE
PROMPT EMP_ID DAT_INC
MATCH EMP_ID
   ON NOMATCH REJECT
   ON MATCH CONTINUE
MATCH DAT_INC
   ON NOMATCH REJECT
   ON MATCH ACTIVATE JOBCODE
   ON MATCH COMPUTE
      RTN = LOOKUP(JOB_DESC);
   ON MATCH TYPE
      "EMPLOYEE ID:        <EMP_ID"
      "DATE INCREASE:      <DAT_INC"
      "NAME:               <D.FIRST_NAME <D.LAST_NAME"
      "POSITION:           <JOB_DESC"
DATA

Una esecuzione campione è:

1. La richiesta richiede l'ID dipendente e la data di aumento stipendio. Immettere l'ID dipendente 071382660 e la data 820101 (1 Gennaio, 1982).
2. La richiesta localizza l'istanza contenente l'ID 071382660, quindi localizza l'istanza secondaria contenente la data di aumento 820101.
3. L'istanza secondaria contiene il codice lavoro A07. Il comando ACTIVATE rende questo valore disponibile a LOOKUP.
4. LOOKUP localizza il codece lavoro A07 nel segmento di riferimento incrociato. Restituisce un 1 alla variabile RTN e recupera la descrizione lavoro corrispondente SECRETARY.
5. Il comando TYPE visualizza i valori:

   EMPLOYEE ID:          071382660
   DATE INCREASE:        82/01/01
   NAME:                 ALFRED STEVENS
   POSITION:             SECRETARY

I campi recuperati da LOOKUP non richiedono il prefisso D. FOCUS tratta i valori campo come valori di transazione.

Si potrebbe dover attivare il campo host se si sta usando LOOKUP all'interno di un comando NEXT. Questa richiesta visualizza la posizione più recente di un dipendente:

MODIFY FILE EMPLOYEE
PROMPT EMP_ID
MATCH EMP_ID
   ON NOMATCH REJECT
   ON MATCH CONTINUE
NEXT DAT_INC
   ON NONEXT REJECT
   ON NEXT ACTIVATE JOBCODE
   ON NEXT COMPUTE
      RTN = LOOKUP(JOB_DESC);
   ON MATCH TYPE
      "EMPLOYEE ID:      <EMP_ID"
      "DATE OF POSITION: <DAT_INC"
      "NAME:             <D.FIRST_NAME <D.LAST_NAME"
      "POSITION:         <JOB_DESC"
DATA

Quando si usa LOOKUP, rifiutare transazioni contenenti valori per cui non è presente una istanza corrispondente nel segmento di riferimento incrociato. Per eseguire questa azione, posizionare la funzione in un comando VALIDATE. Se la funzione non è in grado di localizzare l'istanza nel segmento di riferimento incrociato, questa imposta il valore della variabile di ritorno su 0, causando la richiesta di rifiutare la transazione.

La seguente richiesta aggiorna le ore di classe di un dipendente (ED_HRS). Se i dipendenti iscritti alle classi il o dopo il 1 Gennaio 1982, la richiesta aumenta il numero di ore di classe del 10%. Le date di iscrizione sono memorizzate in un segmento di riferimento incrociato (campo DATE_ATTEND). Il campo condiviso è l'ID dipendente.

La richiesta è come segue:

MODIFY FILE EMPLOYEE
PROMPT EMP_ID ED_HRS
VALIDATE
   TEST_DATE = LOOKUP(DATE_ENROLL);
COMPUTE
   ED_HRS = IF DATE_ENROLL GE 820101 THEN ED_HRS * 1.1
         ELSE ED_HRS;
MATCH EMP_ID
   ON MATCH UPDATE ED_HRS 
    ON NOMATCH REJECT
DATA

Se un record dipendente non si trova nel segmento di riferimento incrociato, quel dipendente non si è mai iscritto ad una classe. La transazione viene rifutata come un errore.

Se la funzione LOOKUP non è in grado di localizzare un valore del campo host nel segmento di riferimento incrociato, usare la sintassi estesa per localizzare il prossimo valore campo di riferimento incrociato più alto o più basso.

Per usare questa funzione, creare l'indice con il parametro INDEX impostato su NEW (il binario, schema struttura ad albero). Per determinare il tipo di indice usato da una origine dati, immettere il comando FDT.

COMPUTE
LOOKUP(field action);