EZEC10 verifica um dígito de verificação de 10 módulos.
EZEC10 pode ser utilizado como qualquer um dos seguintes:
A seguir a seqüência de chamada para EZEC10:
>>-EZEC10---(--xxxx--,---yyyy--,---zzzz--)--;------------------><
Quando usado como rotina de edição de campo variável de mapa, o valor é verificado para o comprimento do campo definido para garantir que ele passe na verificação de módulo 10. Se a verificação falhar, o usuário do programa será solicitado a digitar corretamente os dados.
Suportado em todos os ambientes sem considerações de compatibilidade.
No exemplo a seguir, myinput é definido como dados de caracteres que contêm o valor 1734284 (o 4 na extrema direita é o dígito de auto-verificação digitado, não faz parte do número base), mylength é um item de dados binários que contém o valor 7 e myresult é um item de dados binários cujo valor será definido pela rotina EZEC10.
EZEC10(myinput,mylength,myresult);
EZEC10 deriva o dígito de verificação de módulo 10, usando o seguinte algoritmo:
1 7 3 4 2 8 4 (Dígito de autoverificação) x 2 x 2 x 2 ___ ___ ___ 14 8 16
1 + 1 + 4 + 3 + 8 + 2 + 1 + 6 = 26
30 - 26 = 4
O dígito resultante é o de autoverificação. A variável myresult é definida para 0, se o dígito de autoverificação for gerado, ou para 1, se não for.