Retornar o número de itens básicos (não redefinidos) e preencher vetores com a definição destes itens do arquivo selecionado.
|
<vetC1> |
representa o nome do vetor que será preenchido com o nome dos itens básicos do arquivo. Deve ter no mínimo 12 caracteres. |
|
<vetC2> |
representa o nome do vetor que será preenchido com o tipo dos itens básicos do arquivo. Deve ter no mínimo 1 caracter. |
|
<vetN1> |
representa o nome do vetor que será preenchido com o tamanho dos itens básicos do arquivo. |
|
<vetN2> |
representa o nome do vetor que será preenchido com o número de casas decimais dos itens básicos numéricos do arquivo. |
Retorna a quantidade de itens básicos (não redefinidos) do arquivo selecionado preenchendo, opcionalmente, vetores com a característica do registro do arquivo de banco de dados.
Quando utilizada sem argumentos, retorna o número de itens básicos do arquivo.
Os vetores devem ser declarados com o número de elementos igual ao número de itens básicos do arquivo.
O exemplo a seguir mostra-nos como declarar vetores com o número de elementos igual ao número de itens básicos do registro.
USE tab_func
qtd_item = ABASE( ) && Retorna o número de itens básicos do registro
DECLARE vet_nom[qtd_item] = SPACE(12)
DECLARE vet_tip[qtd_item] = " "
* Exibe a quantidade de itens básicos (qtd_item) e preenche os
* vetores
? ABASE(vet_nom, vet_tip)