Validazione campo numerico

Funzione %CHECK

Un altro metodo per verificare se il contenuto di un campo alfanumerico sia effettivamente un numero è la ricerca tramite la funzione %CHECK di caratteri che non siano '0123456789'.

P.es.:

     d f1              s              8a

     d i               s              3u 0

     d elnum           s             10a   inz('0123456789')

     c                   eval      i = %check(elnum:f1)

Se il risultato della funzione %check è 0 significa che il campo f1 è un numero valido.

Funzione %DEC

Come ultimo metodo (non nascondo che a mio parere è quello da preferire) si può utilizzare la funzione %DEC in combinazione con il codice operativo MONITOR.

Ovvero si tenta di convertire in un campo numerico il campo alfanumerico monitorando eventuali errori con il construtto MONITOR. In caso di errore (status code = 105 ovvero messaggio RNQ0105) significa che il campo alfanumerico non conteneva un numero valido.

Ritengo preferibile questo metodo rispetto ai precedenti perché la funzione %dec consente di ottenere come risultato un numero valido in un maggior numero di casi che coi metodi precedenti avrebbero dato risultato negativo.

P.es.:

     d f1              s              8a

     d wrk             s              8p 2

     d errnum          s              1n

       errnum = *off;

       monitor;

         wrk = %dec(f1:8:2);

         on-error;

          errnum = *on;

       endmon;

Come si può vedere dalla tabella precedente comparata con quella presente nel paragrafo del codice operativo TESTN si può vedere facilmente come si ottengano molti più casi di conversione in numero con esito positivo grazie alla funzione %dec che interpreta correttamente il segno negativo e il separatore dei decimali.