I am reading a decimal fields from a table but in the file(wp format) the decimal portion is getting rounded off.
if the data is 789.56 in the table it is coming as 789.50 in the file. Im not using any round off function, please suggest what could be the problem.

This message has been edited. Last edited by: <Kathryn Henning>,

Does this only happen in WP format? What about HTML or EXL2K?

Can you please show us the ACTUAL and USAGE clauses in your WF synonym for that field, as well as the piece of code you're using to display it?

I am using only WP format.
Below is the code that I am using. In the below code when I see in the ddgp2.wp file the data is ok(783.38), but in the file ddgprs.wp it shows (783.30) which is not correct.

SET NODATA=0
TABLE FILE BLUSGREC
SUM
-*
GPRS_HOME_CHG/P14.2 OVER
GPRS_INT_ROAM_CHG/P14.2
-*
ACROSS REP_SORT AS ''
-*
WHERE REPORT_SEQ_NO EQ &BLCR_SEQ OR &BLHO_SEQ OR &UPCS_SEQ OR &RPR_SEQ
-*
ON TABLE SET PAGE NOPAGE
ON TABLE SAVE AS DDGP2 FORMAT WP
END
-RUN

FILEDEF DDMAS DISK ddgp2.mas ( RECFM V LRECL 100
-RUN

-WRITE DDMAS FILENAME=DDGP2 ,SUFFIX=FIX
-WRITE DDMAS SEGNAME=ONE
-WRITE DDMAS FIELDNAME=FILL1 , ,A2 ,A2 , $
-WRITE DDMAS FIELDNAME=TOT_NAME , ,A17 ,A17 , $
-WRITE DDMAS FIELDNAME=FILL1 , ,A1 ,A1 , $
-WRITE DDMAS FIELDNAME=BC_AMOUNT , ,D14.2M,A14 , $
-WRITE DDMAS FIELDNAME=FILL1 , ,A2 ,A2 , $
-WRITE DDMAS FIELDNAME=ST_AMOUNT , ,D14.2M,A14 , $
-WRITE DDMAS FIELDNAME=FILL1 , ,A2 ,A2 , $
-WRITE DDMAS FIELDNAME=HF_AMOUNT , ,D14.2M,A14 , $
-*
FILEDEF DDGP2 DISK ddgp2.wp
-RUN
-*
TABLE FILE DDGP2
PRINT *
COMPUTE LN_INDX1/I2=LN_INDX+1; NOPRINT
COMPUTE LN_INDX/I2=DECODE LN_INDX1 ( 1 2
2 5 ELSE 0 );
WHERE TOT_NAME NE ' ' AND TOT_NAME OMITS '-'
ON TABLE HOLD AS DDGPRS2
END
-RUN
JOIN CLEAR *
JOIN LN_INDX IN DDGPRS2 TO LN_INDX IN DDTHREGP AS J5
-*
DEFINE FILE DDGPRS2
TOT_NAME/A21=TOT_NAME;
CYC_DIFF/D17.2M=BC_AMOUNT-ST_AMOUNT;
CYC_DIFF_P/P7.2=IF ST_AMOUNT EQ 0 AND CYC_DIFF GT 0 THEN 100 ELSE
IF ST_AMOUNT EQ 0 THEN 0 ELSE (CYC_DIFF/ST_AMOUNT)*100;
HOB_DIFF/D17.2M=HF_AMOUNT+CYC_DIFF;
HOB_DIFF_P/P7.2=IF ST_AMOUNT EQ 0 AND HOB_DIFF GT 0 THEN 100 ELSE
IF ST_AMOUNT EQ 0 THEN 0 ELSE (HOB_DIFF/ST_AMOUNT)*100;
TH_SN/A1=IF TH_VALUE EQ 0 THEN ' ' ELSE
IF TH_VALUE LT ABS(HOB_DIFF_P) THEN '*' ELSE ' ' ;
END
TABLE FILE DDGPRS2
PRINT
LN_INDX AS '' IN 0
TOT_NAME AS '' IN +0
BC_AMOUNT AS '' IN +0
ST_AMOUNT AS '' IN +0
CYC_DIFF AS '' IN +0
CYC_DIFF_P AS '' IN +0
HF_AMOUNT AS '' IN +0
HOB_DIFF AS '' IN +0
HOB_DIFF_P AS '' IN +0
TH_SN AS '' IN +0

ON TABLE SET PAGE NOPAGE
ON TABLE SAVE AS DDGPRS FORMAT WP
END
SAVE AS DDCSVGP
-RUN
-*
JOIN CLEAR *
JOIN GR_IND WITH LN_INDX IN DDGPRS2 TO LN_INDX IN DDTHREGP AS J6
-*
DEFINE FILE DDGPRS2
GR_IND/I2=7;
TOT_NAME/A21='GRAND_TOTAL';
END
TABLE FILE DDGPRS2
SUM
FST.GR_IND AS '' IN 0
TOT_NAME AS '' IN +0
BC_AMOUNT AS '' IN +0
ST_AMOUNT AS '' IN +0
COMPUTE CYC_DIFF/D17.2M=BC_AMOUNT-ST_AMOUNT; AS '' IN +0
COMPUTE CYC_DIFF_P/P7.2=IF ST_AMOUNT EQ 0 AND CYC_DIFF GT 0 THEN 100 ELSE
IF ST_AMOUNT EQ 0 THEN 0 ELSE (CYC_DIFF/ST_AMOUNT)*100;
AS '' IN +0
HF_AMOUNT AS '' IN +0
COMPUTE HOB_DIFF/D17.2M=HF_AMOUNT+CYC_DIFF; AS '' IN +0
COMPUTE HOB_DIFF_P/P7.2=IF ST_AMOUNT EQ 0 AND HOB_DIFF GT 0 THEN 100 ELSE
IF ST_AMOUNT EQ 0 THEN 0 ELSE (HOB_DIFF/ST_AMOUNT)*100;
AS '' IN +0
COMPUTE TH_SN/A1=IF FST.TH_VALUE EQ 0 THEN ' ' ELSE
IF FST.TH_VALUE LT ABS(HOB_DIFF_P) THEN '*' ELSE ' ' ;
AS '' IN +0
-*
BY GR_IND NOPRINT
-*
ON TABLE SET PAGE NOPAGE
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE AS DDGPRS FORMAT WP
END
SAVE AS DDCSVGP
-RUN
-*

Try using the D format instead of P.
P has different rounding behaviour, probably due to how it gets packed.

After making the below changes I am getting very weird results. $783.30 value is coming as $78.00.

GPRS_HOME_CHG/D13.2 OVER
GPRS_INT_ROAM_CHG/D13.2

Isn't that because you're writing a D13.2 to your WP file, but are defining it as D14.2M in your master?

Why are you using WP files for temporary data anyway? If you'd use binary or FOCUS format HOLD files, the master gets generated for you.
I suspect that those formats store the data more efficiently (both performance and size) as well, but I'm not sufficiently familiar with the WP format.

Thanks for you help.
Since I cannot change the format at this point so I'll wait for someone who can help me with this.

Then why did you change it into this instead of D14.2?!?

quote:

GPRS_HOME_CHG/D13.2 OVER
GPRS_INT_ROAM_CHG/D13.2

Come to think of it, you might want to check the documentation on whether P (packed) format numerics and D (decimal) format numerics interpret 14.2 in the same way. I don't think they do.

I seem to recall that P14.2 means a number with 14 positions before the decimal point (and 2 after, obviously), while D14.2 means 14 positions total, of which 2 are decimals. The decimal dot might count as a position as well in the decimal format. That would mean that the equivalent of a P14.2 is not a D14.2, but rather a D16.2 or a D17.2!

Regardless, you really should check the documentation on these types. It should explain the behaviour you're seeing.

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

quote:

Reference: FORMAT WP
Description: Captures the entire report output, including headings, footings, and subtotals, and creates a text file that can easily be incorporated into most word processing packages.

This surely means you will have rows of different types, column titles, two different data rows...

For testing purposes, you should try to create a demo fex using an IBI-supplied file as input.

I have never created a WP file to be used as input for further processing.

This message has been edited. Last edited by: Francis Mariani,

For a discussion of rounding, take a look at Describing Data with WebFOCUS Language pages 114-115 in the WF77 version.
Also note that the D denotation does NOT stand for decimal but for Double precision floating point.
A quick review of how numbers are manipulated might be in order.
HTH

I believe that packed decimal format truncates trailing decimal places exactly as indicated in the format. Double precision format preserves many - I forget how many - decimal places in the data but only displays the number indicated in the format.

So: 12345.5678 with P8.2 format is stored and displayed as 12345.56, but with D8.2 is stored as 12345.5678 and displayed as 12345.56. All calculations on the latter are done on the full decimal value.