RDSEQ NOT READING LINE CORRECTLY

SOLVED

Hi, 

We are planning on upgrading our system from V11 to V12 P29. One thing I noticed is that sage is not able to detect a new line when reading the trace file. When I read the trace file, sage thinks that everything is in 1 line when it is not. Is anybody else experiencing this issue? Does anybody have any ideas on what I can possibly try to resolve it?

Subprog EXECIML(IMPTEMP, FNAME, MESSAGE)

Value Char IMPTEMP
Value Char FNAME

Variable Char MESSAGE () ()

# Start the trace
Call OUVRE_TRACE ("EXECIML "-IMPTEMP) From LECFIC

Call IMPORTSIL(IMPTEMP, FNAME) From GIMPOBJ

# end/write the trace
Call FERME_TRACE From LECFIC

# open the trace file to get the details
Openi filpath("TRA",GTRACE,"tra",0) Using [ZZZ]

Local Integer I : I = 0
Local Integer LISTMAX : LISTMAX = 100

Local Char XLINE(100)
# read the file
Repeat

Rdseq XLINE Using [ZZZ]

If left$(XLINE,11)="Creation of"
MESSAGE = 'SUCCESS'
Openi Using [ZZZ]
End
Elsif left$(XLINE,59)=" You must finish this control in order to access this stock"
MESSAGE = left$(XLINE,59)
Openi Using [ZZZ]
End
Elsif left$(XLINE,2)="<0"
MESSAGE = MESSAGE+chr$(13)+chr$(10)+XLINE
Endif

If I >= LISTMAX : Break : Endif

Until fstat <> 0

# close the file
Openi Using [ZZZ]

End

Thanks

Chris