Si se trata de campos que contienen fechas, puedes hacerlo con el ejemplo 
que pongo a continuación. 

La única precaución que hay que tener es que el campo alfa contenga una 
fecha válida en el formato que has puesto de ejemplo (no sirven ceros o 
blancos; habría que tratarlos antes de hacer la conversión).

     D alfa            s             10a 
     D numero          s              8p 0 
     D fecha           s               d   datfmt(*iso) 
 
      /free 
 
       alfa = '16.07.2007'; 

       fecha  = %date(alfa:*eur); 
       numero = %dec(fecha:*iso); 
 
       *inlr = *on; 
 
      /end-free 

Un saludo.


> Hay alguna manera de convertir un dato de alfa a numérico en RPG??, 
> al contrario no tengo problemas...
> 
> Ej: Campo A (alfa): 16.07.2007 lo quiero convertir en num B: 20070716.
> 
> Mi intención era usar la operación subst para despues concatenar.


Los datos de carácter personal facilitados por usted para el envío de 
comunicaciones, se encuentran incorporados en un fichero de cuyo tratamiento es 
responsable la Sociedad pudiendo ejercitar sus derechos de acceso, 
rectificación, cancelación y oposición regulados en la Legislación de 
Protección de Datos de Carácter Personal, mediante el envío de una comunicación 
a GRUPO IMPORTACO Calle Barranco, 20 46469 Beniparrell – Valencia ( España ). 
Este mensaje puede contener información confidencial y es para uso exclusivo 
del destinatario. Si no es usted el destinatario o la persona encargada 
dehacérselo llegar, no puede hacer copias o enviarlo a ninguna otra persona.Si 
recibe este mensaje por error, bórrelo y comuníquenoslo, por favor.  Importaco 
Group, in its position in charge of automated files containing your personal 
data, guarantees full compliance with the Personal Data protection Regulations, 
and assures the holder, of the exercising of rights of access, rectification, 
cancellation, evaluation information and opposition, in the terms established 
in the legislation in force. For this, , the holder can always write to 
IMPORTACO GROUP, PC. 46469 Beniparrell - Valencia (Spain). Confidential 
information may be contained in this email. If you are not the addressee 
indicated or responsible for delivery to such person, you may not copy or 
deliver this message to anyone. In such case, you should erase it and kindly 
notify us the error, please. Thank you.  Antes de imprimir este mensaje, 
asegúrese de que es necesario. El medio ambiente está en nuestra mano. Do you 
really need to print this message? Think about it before you do! The future of 
the planet is in our hands. http://www.casapons.es  .   
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a