ponlo en una DS algo asi

Ej..

IDS1       DS
I                            1      16 variable
I                             1       70ente1
I                             8       8 punto1
I                             9      160deci1
DS2         DS
I                             1         70ente2
I                             8        150deci2
I                             1        150numero
 *
C                           move campo variable
C                           z-add   ente1           ente2
C                           z-add   deci1            deci2
C                           mult factor        numero 


              

> -----Mensaje original-----
> De:   Santillana, Gerardo [SMTP:[EMAIL PROTECTED]]
> Enviado el:   Mi�rcoles, 02 de Octubre de 2002 04:36 p.m.
> Para: [EMAIL PROTECTED]
> Asunto:       RE: operacion con campo caracter
> 
> Gracias compadre
> 
>   pero esta instruccion no se puede usar en un programa RPGLE o si?
> 
> Gerardo Santillana 
> IT Department
> Delphi Mechatronic Systems
> US Ph: (956) 554.5832
> MX Ph: (88) 12.81.63/64/65 Ext. 5832
> e-mail [EMAIL PROTECTED]
> 
> 
> -----Original Message-----
> From: Victor Velardez BT [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, October 02, 2002 2:25 PM
> To: [EMAIL PROTECTED]
> Subject: RE: operacion con campo caracter
> 
> 
> 
> decimal(substr(campo, 1 , 7) || substr(campo, 9 , 8 )) * factor
> 
> Suerte compadre
>  
> 
> > -----Mensaje original-----
> > De: Santillana, Gerardo [SMTP:[EMAIL PROTECTED]]
> > Enviado el: Mi�rcoles, 02 de Octubre de 2002 04:19 p.m.
> > Para:       [EMAIL PROTECTED]
> > Asunto:     operacion con campo caracter
> > 
> > Hola a todos
> > 
> >   tengo un archivo con un campo caracter de 16 posiciones, en el cual la 
>informacion que contiene son puros numeros con un punto decimal implicito de esta 
>manera '0000001.09830000', lo que quiero hacer es leer el campo y hacer una 
>multiplicacion con un factor de conversion y el resultado actualizarselo a ese mismo 
>campo, como le puedo hacer ya que al querer pasarlo a una  variable para hacer la 
>operacion me marca "decimal data error"
> > 
> > acepto sugerencias
> > 
> > gracias
> > 
> > Gerardo Santillana 
> > IT Department
> > Delphi Mechatronic Systems
> > US Ph: (956) 554.5832
> > MX Ph: (88) 12.81.63/64/65 Ext. 5832
> > e-mail [EMAIL PROTECTED]
> > 
> > 
> > 
> > _____________________________________________________
> > 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, env�a el mensaje resultante de pulsar
> > mailto:[EMAIL PROTECTED]?body=AVE
> 
> La informacion contenida en este correo es para uso exclusivo de los destinatarios 
>del mismo.
> Esta prohibido a las personas o entidades que no sean los destinatarios de este 
>correo
> realizar cualquier tipo de modificacion, copia o distribucion del mismo.
> Si Usted recibe este correo por error tenga bien notificar al emisor y eliminarlo.
> 
> _____________________________________________________
> 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, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=AVE
> 
> _____________________________________________________
> 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, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=AVE

La informacion contenida en este correo es para uso exclusivo de los destinatarios del 
mismo.
Esta prohibido a las personas o entidades que no sean los destinatarios de este correo
realizar cualquier tipo de modificacion, copia o distribucion del mismo.
Si Usted recibe este correo por error tenga bien notificar al emisor y eliminarlo.

_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE

Responder a