Acumular somatório de itens numéricos.
FACUM (<exp.C>, <vet.C>, <vet.N>)
|
<exp.C> |
Representa o nome de um arquivo do banco de dados. |
|
<vet.C> |
Representa um vetor caractere com nome dos itens que serão acumulados. |
|
<vet.N> |
Representa um vetor numérico onde serão armazenados os resultados das totalizações. |
Esta função lê seqüencialmente o arquivo <exp.C> acumulando em <vet.N> os valores dos itens definidos em <vet.C>.
Os itens definidos em <vet.C> devem ser de tipo numérico (tipos N, P, S, C, B, I ou F).
Para cada elemento do vetor <vet.C> corresponde um elemento do vetor <vet.N> com o resultado da acumulação do item correspondente.
Esta função quando bem sucedida retorna 0 (zero). Caso contrário retorna -1, neste caso verificar se algum dos itens passados em <vet.C> não é numérico, a quantidade de elementos de <vet.N> corresponde à quantidade de elementos de <vet.C> ou se ocorreu erro durante o acesso ao banco de dados (ver se DBERR() # 0).
Suponha um banco EXEMPLO com um arquivo PESSOA com registros cuja soma das IDADEP seja 40:
prog
r=FOPEN ("EXEMPLO", "a", 1, 2) && Abre o banco de dados
decl i[1]=space(12)
decl a[1]=0
i[1]="IDADEP"
r=facum("PESSOA",i,a)
? a[1] && exibirá 4