d CampoA          s             21    inz('123456789012345678901'd CampoNP      
   s             21p 0                            d CampoNS         s           
  21s 0                            d Camp1A          s             19    
inz('1234567890123456789') d Camp1NP         s             19p 2                
            d Camp1NS         s             19s 2                            d 
Camp2NP         s             19p 2                            d Camp2NS        
 s             19s 2                            d ew              c             
      '                 ,  '      /free                                         
                    CampoNP = %float(CampoA);                                   
     CampoNS = %float(CampoA);                                        Camp1NP = 
%dec(%editw(%int(Camp1A):ew):19:2);                    Camp1NS = 
%dec(%editw(%int(Camp1A):ew):19:2);                    *InLr = *On;             
                                      
miren los valores del CampoNP y CampoNS
CAMPONP = 123456789012345667584.  
CAMPONS = 123456789012345667584.
Existe alguna explicación lógica, ustedes pueden garantizar una conversion de 
base de datos, con estos resultados.


y definitivamente %int y %Dec solo sirven con campos de una longitud máxima de 
19
CAMP1NP = 12345678901234567.89
CAMP1NS = 12345678901234567.89 


  ----- Original Message ----- 
  From: Jaime Villa Torres 
  To: forum.help400 
  Sent: Friday, April 24, 2009 10:53 PM
  Subject: respecto a %int, %dec


  Esta funciones solo sirven para conversiones de campos de una longitiud 
máxima de 15 númerica?????

  Ejemplo
d CampoA          s             15    inz('123456789012345')d CampoNP         s 
            15p 0d CampoNS         s             15s 0CampoNP = 
%int(CampoA);CampoNS = %int(CampoA); Pero si los campos ya son de 20, no 
funcionan, alguna sulución, sin volver al antiguo MOVE,que por su puesto si 
funciona.???? 

------------------------------------------------------------------------------


  __________________________________________________
  Forum.HELP400 es un servicio más de ServerNEWS.
  © 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
__________________________________________________
Forum.HELP400 es un servicio más de ServerNEWS.
© 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