I'm working on a tool which reads the data from the file and if data is edited then it is written back into the file...
I'm using the following code:
DO I = 1 TO DATAL.0
IF I = CURR THEN
DATAS.CURR = DATAL.CURR
DO S = 1 TO COUNT
DATAS.CURR = OVERLAY(DATA.S,DATAS.CURR,PN.S,LEN.S,' ')
"EXECIO * DISKRU DATAREAD (FINIS STEM DATAS."
"EXECIO * DISKR DATAREAD (FINIS STEM DATAS."
In the above code...datal.0 contains the total number of lines in the file and curr is the edited line number.....
the above code is working well if the line number is other than 1 .if the line number is 1 then it is writing the data and erasing all the other line...
kindly suggest to me on how to overcome the problem