PROGRAMANDO EM NATURAL - Update

Para atualizar registros no Adabas em um ambiente mainframe, você pode utilizar a linguagem de programação Natural, que é a linguagem padrão para acessar o Adabas nesse ambiente. A instrução UPDATE atualiza valores de campos de um arquivo Adabas. O registro atualizado é sempre o último lido anteriormente pelas instruções FIND, READ ou GET.

A seguir, apresento um exemplo de código Natural para atualizar registros em uma tabela do Adabas:

Exemplos em Natural

Programa 1 - Deslocar para a esquerda

DEFINE DATA LOCAL
1 EMPLOYEES VIEW OF EMPLOYEES-IN-ADABAS
  2 EMPLOYEE-ID
  2 NAME
  2 SALARY
END-DEFINE

FIND EMPLOYEES WHERE EMPLOYEE-ID = '1234'
  /* Verifica se encontrou algum registro */
  IF *NOT FOUND
    WRITE 'Registro não encontrado'
  ELSE
    /* Atualiza o registro */
    UPDATE EMPLOYEES
      SET NAME = 'Novo nome', SALARY = 5000
      WHERE EMPLOYEE-ID = '1234'
    END-UPDATE
  END-IF

Explicando o código acima:

* A cláusula DEFINE DATA define uma estrutura de dados (EMPLOYEES) que representa uma visualização da tabela EMPLOYEES-IN-ADABAS, contendo as colunas EMPLOYEE-ID, NAME e SALARY.
* A cláusula FIND busca na tabela EMPLOYEES-IN-ADABAS o registro cujo EMPLOYEE-ID é igual a '1234'. Se o registro for encontrado, ele é armazenado na estrutura de dados EMPLOYEES.
* A cláusula IF verifica se o registro foi encontrado. Se não foi encontrado, é exibida uma mensagem de erro. Se foi encontrado, o registro é atualizado utilizando a cláusula UPDATE, que define quais colunas serão atualizadas e quais valores serão atribuídos a elas. A cláusula WHERE especifica qual registro será atualizado (no caso, o registro cujo EMPLOYEE-ID é igual a '1234').
* A cláusula END-UPDATE finaliza a atualização do registro.

Categories: Adabas 7.4.4