i read the above piece of code into one array and moved the data of 3rd line and 6th line(split line) into 2nd and 5 the line (original line) respectively. after i moved the datas i wanted to delete the split lines.
i tried to delete the same using DELSTR() function. but no fruitful results.
'execio * diskr myinput (finis stem inp.' /* for example */
out. = ''
ixO = 0
do ixI = 1 to inp.0
if <new line> then do
ixO = ixO + 1
out.ixO = inp.ixI /* start new line */
end; else do
out.ixO = out.ixO inp.ixI /* append line to previous */
/* out. now contains reunited lines */