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 *