Ou, encore plus bourrin, extraire les caractères un par un et ne garder que les numériques......en partant de la fin, et en écrasant une zone cible pré-remplie par des zéros, ça doit être encore plus simple.
ou un truc dans ce gout-là..... Et pour être evolutif, on remplace le 6 par un LENGTH OF F-NUMVAL(enfin, une variable qui le porte)....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 MOVE ZEROES TO SORTIE MOVE 6 TO J PERFORM VARYING I FROM 6 BY -1 UNTIL I > 1 MOVE F-NUMVAL ( I : 1 ) TO CARACTERE IF CARACTERE NUMERIC MOVE CARACTERE TO SORTIE ( J : 1 ) SUBTRACT 1 FROM J END-IF END-PERFORM
si on a F3,16£ on récupère 000316.....
Partager