Test si zone numérique en free
/free
alpha = %check('0123456789' : wncli1);
if alpha = 0;
cnocli1 = %int(wncli1);
else;
werr = 'C ';
endif;
/end-free
ou
if %check('0123456789' : wncli1) > 0 alors pas numérique
JCRFREESS => Transformation RPG en free sur écran
JCR4MAX => Transformation RPG4 en full RPG4
JCR5FREE => Transformation RPG4 en free