---

---

READ O comando READ é usado para ler um registro de um arquivo. A leitura de registro está carregada nos níveis 01 (descrição de registro) seguindo a FD (descrição de arquivo) associada com o arquivo. Se a frase INTO for incluída, o registro lido também será copiado no item de dados do INTO. WITH LOCK só é requerido para que o registro seja locado (nenhum acesso por outros usuários ou processos serão permitidos). A leitura com WITH NO LOCK os registros estarão liberados (DEFAULT). Há dois formatos diferentes que são usados para dois tipos diferentes de leituras e são descritos abaixo: O primeiro formato executa uma leitura sequencial do arquivo. Se a última operação executada em um arquivo era um OPEN, o primeiro registro do arquivo é lido. Se a operação prévia era uma READ, o próximo registro sequencial no arquivo é lido. Se ao fim de arquivo é chegado como resultado da leitura, nenhum registro é devolvido e o código entre AT END e NOT AT END, será executado. Se ao fim do arquivo não é chegado, o código entre NOT AT END e END-READ, será executado. O segundo formato executa uma leitura randômica do arquivo. O registro que for igual ao valor atual da chave do arquivo, será lido. Se o arquivo tiver chaves múltiplas, a chave desejada é especificada na cláusula KEY IS. Se o arquivo tem chaves de múltiplas e a cláusula KEY IS é omitida, a chave primária do arquivo será usada. Se nenhum registro igual existir, nenhum registro é devolvido e o código entre INVALID KEY e NOT INVALID KEY, será executado. Se um registro for encontrado, o código entre NOT INVALID KEY e END-READ, será executado. Formatos: