RE: Convertir campo alfanumérico de 10 posiciones en numérico de 5 0

Mon, 30 Sep 2013 09:23:43 -0700 

Gracias a todos ¡¡¡¡

Saludos

Paqui

De: [email protected] 
[mailto:[email protected]] En nombre de Elvira Jurado
Enviado el: lunes, 30 de septiembre de 2013 12:32
Para: [email protected]
Asunto: Re: Convertir campo alfanumérico de 10 posiciones en numérico de 5 0

Hola,

espero que te sirva esto:


descripción de la tabla:

 d tab3            S              1    dim(10) ctdata perrcd(1)
 d ref1            S              1A   dim(10)  (mover a este campo tu campo 
alfanumérico)
 d cla5            s              5  0

cálculo:

for x= 1 to 10;
*in20 = %tlookup(ref1(x) : tab3);
 if *in20 = *on;
  y = y + 1;
  ar(y) = ref1(x);
  if y = 5;
   leave;
  endif;
  endif;
  endfor;
 if y <> 0;
  /end-free
 C                   MOVEa     ar            cla
  /free
cla5 = %dec(cla : 5 : 0);

** tab3
0
1
2
3
4
5
6
7
8
9


[cid:[email protected]]
Elvira Jurado Leiva - Dpto. Informática
Tlf.: 914791512 (ext.165) - Fax: 914631790
[email protected] <mailto:[email protected]> - www.f-soria.es 
<http://www.f-soria.es/>
AVISO DE CONFIDENCIALIDAD

________________________________
La información contenida en este mensaje y archivos adjuntos es privada, 
confidencial y de uso exclusivo de la(s) persona(s) y entidad(es) a la(s) que 
va dirigido. Si Ud. no es el destinatario de esta información se le notifica 
que está expresamente prohibida la declaración, reproducción, distribución o la 
toma de cualquier acción basada en el contenido de esta comunicación. Si ha 
recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente 
y proceda a eliminarlo de todos sus sistemas. Francisco Soria Melguizo, S.A. no 
asume responsabilidad legal por el contenido de esta comunicación, ni 
representa la opinión de la firma, salvo que expresamente se especifique lo 
contrario y que el remitente esté autorizado para hacerlo. Gracias.




De:        "Paqui Alvarez (Taver-Instaclack)" 
<[email protected]<mailto:[email protected]>>
Para:        "'[email protected]'" 
<[email protected]<mailto:[email protected]>>,
Fecha:        30/09/2013 12:13
Asunto:        Convertir campo alfanumerico de 10 posiciones en numerico de 5 0
Enviado por:        
[email protected]<mailto:[email protected]>
________________________________



Hola buenos dias
alguien me puede ayudar ?


en un programa Rpgle


ecibo un campo alfanumerico de 10 posiciones ( B-6.775   )
y necesito convertirlo en numerico de 5 posiciones sin decimales  6775  ( 
eliminando los caracteres de inicio y los puntos de  millar ) , no se que me 
ocurre pero estoy bloqueada en esto…



B-4.255            4255
B-6.773            6773
B-6.554            6554

Muchas gracias ¡¡¡¡¡

Paqui
 ____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

<<inline: image001.jpg>>

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a