Hi

I have a number in A22 format. Im trying to convert it to D12 as I need to round it to thousands etc. Im trying to use ATODBL and max input size is 15 characters. any tip how to do this? thankss..

This message has been edited. Last edited by: Kerry,

? decimal

 

TABLE FILE CAR
PRINT 
COMPUTE A20_INT/A20         = '12345678901234567890';
COMPUTE D20_INT/D20         = EDIT(A20_INT);
COMPUTE A20_DEC/A20         = '1234567890123456.789';
COMPUTE D20_INT_PART/D20    = EDIT(GETTOK(A20_DEC, 20, 1, '.', 20, 'A20'));
COMPUTE D20_DEC_PART/D20    = EDIT(GETTOK(A20_DEC, 20, -1, '.', 20, 'A20'));
COMPUTE D20_DEC_PART_LEN/I9 = ARGLEN(20, GETTOK(A20_DEC, 20, -1, '.', 20, 'A20'), 'I9'); NOPRINT
COMPUTE D20_DEC_DEC/D20.19  = D20_DEC_PART / (10 ** D20_DEC_PART_LEN);
COMPUTE NEW_FORMAT/A20      = 'D20.' || EDIT(D20_DEC_PART_LEN);
COMPUTE D20_DEC/D20         = (D20_INT_PART + D20_DEC_PART) / 1000  ;
BY COUNTRY
WHERE RECORDLIMIT EQ 1
END 

2nd step fails for me..!!

How about just using Packed format?

DEFINE FILE CAR
MYA/A20 WITH COUNTRY  = '12345678901234567890';
MYP/P20         = EDIT(MYA);
MYPB/P17 = MYP/1000 ;
END
TABLE FILE CAR
PRINT MYA MYP MYPB
IF RECORDLIMIT EQ 5
END
-RUN
 

I didn't think EDIT worked above 11 digits ?
, well 10 and a half digits.

And the other question is what format id the A22 number in ?, Is it formatted ?, Are there implied decimal places, or is there a decimal point in the text?

EDIT works fine for left hand side long packed fields: e.g. P22.2. This has been true for mainframe FOCUS for many years, and works now for all platforms. I'm not sure when non-mainframe WEBFOCUS started to support this, so you can just try it on your platform/release. The constant alpha (or field) can basically have any form that is recognized by the expression parser: e.g.

 
DEFINE FILE CAR                              
MYD/D12.2 WITH COUNTRY = -123.456 ;          
MYDB/D12.2 WITH COUNTRY = EDIT('-123.456') ;
MYP/P26.2 WITH COUNTRY = -1234567879012345678.01 ;  
MYPB/P26.2 WITH COUNTRY =  EDIT('-1234567879012345678.01') ;  

END                                          
-RUN                                         
TABLE FILE CAR                               
PRINT MYD MYDB MYP MYPB                               
END