Very Computer

        I'm writing a report where I read in unformatted data from a
file.  I'm trying to read in some numeric fields, but it gives me
incompatable types errors.

----
define variable d-line as character.
define variable x-num as integer.

import unformatted d-line.

assign x-num = integer(substring(d-line, 1, 3)).

----

if I do

define variable x-tmp as char.

assign x-tmp = substring(d-line, 1, 3).
       x-num = integer(x-tmp).

it works.

Why do you have to break it up?

Thanks,

Dan

---------------------------------------------------------------------------



      Chesterfield MO 63005           |    ^-- mail me here 1st
---------------------------------------------------------------------------

I have had problems before where garbage was embeded (actual ascii
characters) in the record,  They where there but you could not see the
characteds because they where control characters.   We were doing a
conversion from an HP3000 MPE to a DEC 5900 Ultrix.  The HP uses a CR as a
record seperator,  but UNIX uses CR/LF as a record seperator.  The
developer knew this,  and to compensate for it he embeded a CR/LF at the
end of each record.  However,  the MPE OS embeded a CR at the end of each
record in addition to his CR/LF.

 When I looked at the record in VI,  I could display the record seperator
with the (L) option and discovered there was a CRCR/LF at the end of each
record.  When I tried to read a record,  I could never find where one
record ended and one began.  Progress treated the file as if I were trying
to read one record.

I hope this helps

Mike Riley
KeyWest Software, Inc.
11107 Gainsborough Court #9
Fairfax, Va. 22030

(703) 591-8315
(703) 591-1830

That does't appear to be the problem here.  This is really a text file,
its just not delimitted with spaces.  

I just don't see the reason why I can't do the process in a single step.

Dan

---------------------------------------------------------------------------



      Chesterfield MO 63005           |    ^-- mail me here 1st
---------------------------------------------------------------------------

Quote:> ----
> define variable d-line as character.
> define variable x-num as integer.

> import unformatted d-line.

> assign x-num = integer(substring(d-line, 1, 3)).
> ----

Quote:> ----
> define variable d-line as character.
> define variable x-num as integer.

> import unformatted d-line.

> assign x-num = integer(substring(d-line, 1, 3)).
> ----

i believe that will do it on any platform.

Mark Tyndall
Business Systems Design, Inc.
Atlanta, GA  USA

"Nothing is simple..."