I used this emulation on a previous job. It will not work correctly on this new job because two of the fields in the file could have a possible length of 2000. Does anyone have any ideas of how I could achieve this by modifying the below code?

Thank you for your help. Everything I try doesn't seem to work correctly.


if(mid(&str,1,3)<>&CurrentDealer)
doform()
clearpage()
set(&CurrentDealer,mid(&str,1,3))
endif()
search(&str,'|')
set(&sTempLine,&sTempLine+left(&str+' ',50))
endsearch()
set(&sTempLine,&sTempLine+left(&str+' ',50))
set(¤t.line,¤t.line + 1)
store(¤t.line,&sTempLine)
set(&sTempLine,'')
if(ge(¤t.line,¤t.lpp))
doform()
clearpage()
endif()

Hi:

The line length must be modified in the document properties:

Click on Format, Document, then select Compilation options and set the maximum data line length to 3000.

Hope this helps,

Ha! Worked like a charm. :p

Thank you!!!