FSCALVAL & FSREPVAL are the same value in the IMS database.
WebFOCUS report code
DEFINE FILE CN778DBD TESTVAL/D12.4=EDIT( CN778DBD.FSDATART.FSREPVAL ); <---- attempt to format the value END TABLE FILE CN778DBD PRINT CN778DBD.FSDATART.FSCALVAL CN778DBD.FSDATART.FSREPVAL CN778DBD.FSDATART.TESTVAL WHERE RECORDLIMIT EQ 10
When we used the IMS Adapter for z/OS, we would set SUFFIX=IMS.
If you are using another way to get to IMS (IWAY), I wouldn't necessarly change the SUFFIX then.
If the issue is that the way your are connecting doesn't support zoned decimal formats in the master, then maybe consider defining them as A16, as you have, and then converting them.
Something like:
DEFINE FILE CAR
FSMANVAL/A16 WITH COUNTRY = '000000000174000{';
FIRST15/A15 = SUBSTR(16, FSMANVAL, 1, 15, 15, 'A15');
LAST1/A1 = SUBSTR(16, FSMANVAL, 16, 16, 1, 'A1');
LASTVAL/A1 = DECODE LAST1 ('{' '0'
'A' '1');
FSMANVALNEW/A16 = FIRST15 | LASTVAL;
FSMANVALOUT/D16.4 = ATODBL(FSMANVALNEW, '16', FSMANVALOUT) / 10000;
END
TABLE FILE CAR
PRINT
COUNTRY
FSMANVAL
FSMANVALOUT
IF RECORDLIMIT EQ 1
ON TABLE SET ONLINE-FMT STANDARD
END
COUNTRY FSMANVAL FSMANVALOUT
------- -------- -----------
ENGLAND 000000000174000{ 174.0000
I am only converting the '{' and 'A', you can add the other characters, if you think this is worth trying.
March 02, 2017, 03:41 PM
RonT
Thank you David!
I'll add the other values to the DECODE and detect the negative numbers.
WebFOCUS 8.0.09 ZOS Linux LPAR All outputs
March 03, 2017, 03:19 PM
RonT
I would mark this as solved but I can't find a way to do so.
WebFOCUS 8.0.09 ZOS Linux LPAR All outputs
March 03, 2017, 03:27 PM
MartinY
Return to your first post, then Edit it (bottom right corner icon : a folder with a pen)
Then add [SOLVED] at the beginning of the post subject
WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF In Focus since 2007