Thanks to all who replied to my original post. The COBOL report is now reading the R4 data items correctly. ;-)
Now I need to be able to update this data set from COBOL, and reverse the conversion back to R4. The report was actually an extract/export to Excel. The user will modify the spreadsheet an upload it back to M.P.E., where my COBOL program will read it and update the R4 data item. I do not have the Intrinsics manual, I borrowed one for ten minutes yesterday, and one of the Intrinsics referenced in response to my original post wasn't even in the intrinsics manual. I searched docs.hp.com, and couldn't find it. So, does a intrinsic exist that will convert a numeric string to R4?
Again many thanks,
Michael Anderson.
>>> Michael Anderson <[log in to unmask]> 04/09/02 11:14AM >>>
On MPE/iX 6.5, pp7 I have a very old (1970's) Fortran 66 application, running in CM. It makes use of image data items in the R4 format. I now have need to access these data items using a NM COBOL Application. I looked at 'INT' and 'DINT' (from the compiler library) to try to convert these R4 data items into something that COBOL could deal with, but it seems that 'INT' and 'DINT' are callable by SPL, of Fortram ONLY.
Does any on the list know of a routine (Supported/Unsupported) that will convert R4 data items into an integer, including the decimal place value.
My cobol program reads the R4 data item as PIC x(8). So I'd like to have something like:
01 realvalue pic x(8)
01 integervalue pic s9(9) comp.
01 decimalplace pic s9(4) comp.
CALL "R4CVT" USING REALVALUE INTEGERVALUE
DECIMALPLACE.
Anyone know where a could find something like this?
Or close to it?
Thanks in advance,
Michael Anderson.
281.217.2871
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|