%dec

[cat5ive]

What's wrong with this? I got error msg 'The target for a numeric operation is too small to hold the result'.

D text s 9 inz('12345')
D newnum s 15 3

newnum = %dec(text:6:3);


Thanks in advance

 

[jmanj]

It's been awhile since I've worked with packed precision numbers but I'll give it a try. Try increasing the value of newnum to 18 3. Precision 6 and decimal 3 when unpacked will have a result of 18 including check digits. Or try converting text into a pack decimal. You can also decrease the precision. Hope this helps.

 

[cat5ive]

Hi,

I increased newnum to 20 3, still get the same error msg.
I want to convert text string to decimal field. What's the
other BIF beside %dec?

Thanks

 

[cat5ive]

Hi,

I got it. It's the length of the 'TEXT' that I need to
increase.

 

[cat5ive]

Hi,

Actually it still not working. Still need help please.

Thanks

 

[Mercury2]

D Text            s              9a   inz('12345')
D NewNum          s             15  3             
D Length          C                   const(12)   
D DecPos          C                   const(3)    
                                                  
 /Free                                            
        NewNum = %Dec( Text: Length: DecPos ) ;   
        ...

You get NewNum = 12345.000

Remember that the 2nd argument of the %DEC BIF is the number of digits in the resulting numeric value, not the length of the character string and the 3rd argument the number of decimal places in the same resulting numeric value.

 

[arrow483]

Correct. Its not the size of newnum that was the problem - it was the %dec(text:6:3) What this says is you want a 6 position numeric with 3 decimals (xxx.xxx). This allows only 3 positions to the left of the decimal. If you use
%dec(text:15:3) you would be OK.

 

[cat5ive]

Thanks, guys. it works. My next question is, how do I get
the decimal to show up.

D text            s           7    inz(' 123.45')         
D newnum          s          15p 2                        
D length          c                const(15)              
D pos             c                const(2)               
  
                                                         
     newnum = %dec(text:length:pos);

My newnum show 12345 not 123.45. I tried to inz text with
(' 12345'). It did not work either.

Thanks

 

[Mercury2]

Your code is correct, it does work !

D Text            s              7a   inz(' 123.45')     
D NewNum          s             15p 2                    
D Length          C                   const(%Len(Text))  
D DecPos          C                   const(2)           
                                                         
 /Free                                                   
        NewNum  = %Dec( Text: Length: DecPos ) ; 
        Dump(a) ;
        *Inlr= '1' ;        
 /End-Free

Here is what the dump shows :

 NAME                  ATTRIBUTES           VALUE                               
 NEWNUM                PACKED(15,2)         [b][COLOR=red]0000000000123.45[/color][/b]                    
                       VALUE IN HEX         '000000000012345F'X                 
 TEXT                  CHAR(7)              ' 123.45'        '40F1F2F34BF4F5'X

 

[cat5ive]

Got it now. It was because I did 'DSPLY newnum'. That's why
it did not show decimal.

Thanks again everyone.

 

[arrow483]

Only problem with this TalkTurkey, is that is the text value is something like 1234567, your code will fail. Using
D Length C const(%Len(Text))

Will leave the field short. The length should be at least the length of text + the number of decimals to handle the largest values in text.