EZEG10 gera um dígito de verificação de módulo 10.
Você pode utilizar EZEG10 como o nome de função em uma instrução de chamada da função.
A seqüência de chamada para EZEG10 é:
>>-EZEG10---(--xxxx--,---yyyy--,---zzzz--)--;------------------><
Suportado em todos os ambientes sem considerações de compatibilidade.
No exemplo dado, myinput é definido como dados de caracteres que contêm o valor 1734280 (o 0 da direita é a posição do dígito gerado, podendo ser qualquer valor na entrada), mylength é um item de dados binário que contém o valor 7 e myresult é um item de dados binário cujo valor será definido pela rotina de EZEG10.
EZEG10(myinput,mylength,myresult);
EZEG10 deriva o dígito de verificação de módulo 10, usando o seguinte algoritmo:
1 7 3 4 2 8 0 (dígito gerado) 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.