le forum IBM i

Bonjour,
Sous V7R1,
En RPG FREE, je cherche à faire un test de numéricité.

si les 6 premiers caractères de la variable P_Champ
sont numériques,
alors je met ces 6 car. dans la variable P_MatD,
sinon je met 6 zéros dans la variable P_MatD.

J'ai opté pour l'utilisation de Monitor...on-error...endmon.
le code :

Code : Tout sélectionner

 
     DP_Champ        S             40
     DP_MatD           S               6
     DP_Mat9            S               6  0       
...
          P_Mat9 = 0;
          P_MatB = '';
       Monitor;
         P_Mat9 = %dec&#40;%Subst&#40;P_Champ&#58;1&#58;6&#41;&#58;6&#58;0&#41;;
         P_MatB = %Subst&#40;P_Champ&#58;1&#58;6&#41;;
       On-Error;
         P_MatB = '000000';
       ENDMON;

Est-ce la bonne solution ?

Est il possible de ne pas écrire dans le QPJOBLOG autant de messages qu'il y a de tests de numéricité ?
le message généré :

Instruction . . . . . . . . : 3714
Message . . . . : Représentation alphanumérique d'une valeur numérique en
erreur.
Cause . . . . . : Une opération de conversion de données alphanumériques en
données numériques a détecté des données incorrectes. Que faire . . . :
Corrigez les données numériques.

Merci de vos réponses.

Si vous ne voulez pas de messages dans la JOBLOG, essayez :

Code : Tout sélectionner

if %CHECK&#40;'0123456789' &#58; %Subst&#40;P_Champ&#58;1&#58;6&#41; &#41; = 0;
  P_Mat9 = %dec&#40;%Subst&#40;P_Champ&#58;1&#58;6&#41;&#58;6&#58;0&#41;; 
endif;

merci.

le forum IBM i

En Free comment tester la numéricité d'une variable alpha. ?

En Free comment tester la numéricité d'une variable alpha. ?

teste numérique ?

(sans texte)