LOOKUP(field);

onde:

Campo

É o nome do campo a obter no arquivo de referência cruzada. Se o nome do campo também existir na fonte de dados host, você precisará qualificá-lo aqui. Não inclua um espaço entre LOOKUP e os parênteses à esquerda.

Observação: LOOKUP não utiliza um argumento output.

Você pode utilizar um valor de campo em uma ocorrência de segmento host para pesquisar um segmento de referência cruzada. Faça o seguinte:

• No comando MATCH que seleciona a ocorrência do segmento do host, ative o campo do host com o comando ACTIVATE.
• No mesmo comando MATCH, codifique LOOKUP após o comando ACTIVATE.

Esta solicitação exibe o ID do funcionário, a data do aumento do salário, o nome do funcionário e sua posição após o aumento:

• O ID e o nome do funcionário (EMP_ID) se encontram no segmento raiz.
• A data de aumento (DAT_INC) se encontra no segmento do host descendente.
• A posição do trabalho no segmento de referência cruzada.
• O campo compartilhado é JOBCODE. Você nunca deve inserir um código de trabalho; os valores são armazenados na fonte de dados.

A solicitação é:

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

A execução de exemplo é:

1. A solicitação pede que você insira o ID do funcionário e a data do aumento de salário. Insira o ID de funcionário 071382660 e a data 820101 (1 de janeiro de 1982)
2. A solicitação localiza a ocorrência que contém o ID 071382660 e, em seguida, localiza a ocorrência filho que contém a data do aumento 820101.
3. Esta ocorrência filho contém o código de trabalho A07. O comando ACTIVATE disponibiliza este valor para LOOKUP.
4. LOOKUP localiza o código de trabalho A07 no segmento de referência cruzada. Exibe um número 1 para a varíavel RTN e obtém a descrição do trabalho correspondente SECRETARY.
5. O comando TYPE exibe os valores:

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

Campos obtidos pelo LOOKUP não necessitam do prefixo D. FOCUS trata os valores de campo como valores de transação.

Você também pode precisar ativar o campo host caso esteja utilizando LOOKUP dentro de um comando NEXT. Esta solicitação exibe a última posição de um funcionário:

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

Ao utilizar LOOKUP, rejeite transações que contêm valores para os quais não há ocorrências correspondentes no segmento de referência cruzada. Para isto, posicione a função em um comando VALIDATE. Se a função não puder localizar a ocorrência no segmento de referência cruzada, ela definirá o valor da variável de retorno como 0, fazendo com que a solicitação rejeite a transação.

A solicitação a seguir atualiza as horas de aula de um funcionário (ED_HRS). Se o funcionário se matriculou em aulas na data de janeiro 1, 1982 ou após a mesma, a solicitação aumenta o número de horas de aula em 10%. As datas de matrícula são armazenadas em um segmento de referência cruzada (campo DATE_ATEEND). O campo compartilhado é o ID do funcionário.

A solicitação se o exemplo abaixo:

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 um registro de funcionário não for localizado no segmento de referência cruzada, este funcionário nunca se matriculou em uma aula. A transação é rejeitada como um erro.

Se a função LOOKUP não puder localizar um valor do campo do host no segmento de referência cruzada, utilize a sintaxe ampliada para localizar o próximo valor de campo de referência cruzada mais alto ou mais baixo no segmento de referência cruzada.

para utilizar este recurso, crie o índice com o parâmetro INDEX definido como NEW (o esquema de árvore binária). Para determinar o tipo deíndice utilizado por uma fonte de dados, insire o comando FDT.

COMPUTE
LOOKUP(field action);