We are using the IMS IWAY adapter to read an IMS database but the data will not convert for signed numeric fields as we have it coded.

COBOL FD for fields
05 FSCALVAL PIC S9(12)V9999.
05 FSREPVAL PIC S9(12)V9999.

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

Documentation for translation - http://infocenter.informationb...source%2Ftopic43.htm

COBOL FORMAT ACTUAL USAGE
PICTURE S9(n)V9(m) Zn+m Pn+m+2.m

Synonym attempt #1 for fields
FIELDNAME=FSCALVAL, ALIAS=FSCALVAL, USAGE=P18.4, ACTUAL=Z16, $
FIELDNAME=FSREPVAL, ALIAS=FSREPVAL, USAGE=A16, ACTUAL=A16, $

Result:
(FOC1391) ACTUAL FORMAT Z IS INVALID FOR SQL FILES. USE FORMAT A : FSCALVAL

Synonym attempt #2 for fields
FIELDNAME=FSCALVAL, ALIAS=FSCALVAL, USAGE=P18.4, ACTUAL= A16, $
FIELDNAME=FSREPVAL, ALIAS=FSREPVAL, USAGE=A16, ACTUAL=A16, $

Result:
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : FSCALVAL

Synonym attempt #3 for fields
FIELDNAME=FSCALVAL, ALIAS=FSCALVAL, USAGE=P18.4, ACTUAL= P16, $
FIELDNAME=FSREPVAL, ALIAS=FSREPVAL, USAGE=A16, ACTUAL=A16, $

Result:
FSCALVAL FSREPVAL TESTVAL
.0000 000000000174000{ .0000
.0000 000000000566000{ .0000
.0000 000000000606000{ .0000

FSCALVAL and FSREPVAL are the same value. The { is the sign character and the actual values are:

174.0000
566.0000
606.0000

Any idea what we need to do? Thanks!

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

quote:

...USAGE=P18.4, ACTUAL=Z16...

For a zoned decimal number, your first attempt looks pretty good to me.

Why would the error message (FOC1391) think you are using a 'SQL file'?

Is your SUFFIX=IMS in the master file?

Was EDA.
FILENAME=CN778DBD, SUFFIX=EDA , $

Changed to IMS

FILENAME=CN778DBD, SUFFIX=IMS , $
SEGMENT=FSDATART, SEGTYPE=S2, $
GROUP=FSDATAKY, ALIAS=FSDATAKY, ELEMENTS=4, $
FIELDNAME=FSCCYYMM, ALIAS=FSCCYYMM, USAGE=A6, ACTUAL=A6, $
(snip)
FIELDNAME=FSCALVAL, ALIAS=FSCALVAL, USAGE=P18.4, ACTUAL=Z16, $
FIELDNAME=FSMANVAL, ALIAS=FSMANVAL, USAGE=A16, ACTUAL=A16, $


Now the error below... no clue where the X is coming from. Spaced the line out and tried three times.

(FOC1201) ERROR LOADING MODULE : IMSX
(FOC1074) INVALID SUFFIX : IMSX

Tried IM and.....
(FOC1201) ERROR LOADING MODULE : IM
(FOC1074) INVALID SUFFIX : IM

Tried IMSX and.....
(FOC1201) ERROR LOADING MODULE : IMSX
(FOC1074) INVALID SUFFIX : IMSX

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.

Thank you David!

I'll add the other values to the DECODE and detect the negative numbers.

I would mark this as solved but I can't find a way to do so.

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