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 esquerdaDEFINE 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-IFExplicando 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.
Tenho muito material sobre Natural e Adabas.
ResponderEliminarhttps://github.com/rosivaldocamjr
Anotei nos meus favoritos, baixei os PDF, muito bom
Eliminar