IBMi (AS400) fans only ' how to calculate the check digit for EAN-13 codes
#IBMiSample The check digit is the last digit of each barcode and is used to verify the correctness of the GS1 codes (formerly EAN codes). This program calculates the check digit of an EAN-13 barcode: EAN13C.RPGLE **FREE ctl-opt option(*nodebugio:*srcstmt:*nounref) dftactgrp(*no); // **************************************************************** // * Autore.......: ALDO SUCCI * // * Descrizione..: CALCOLO DEL CHECK DIGIT X EAN13 * // * Data.........: 15/06/09 * // **************************************************************** // * * // * Parametri in input:PARAM (12 cifre EAN) * // * output:WDIGIT (13° carattere Check digit) * // * * // * * // * il caratt