LOCAL lcdesc,lcitemno,lnqty,lnprice
IF ...
create table junkpos.dbf(allfields c(254))
ENDIF
SELECT 1
USE junkpos
SELECT 2
USE pos
SELECT 1
append from pos.txt delimited
go top
do while .not. eof()
lcdesc=SUBSTR(allfields,1,50)
lcitemno=SUBSTR(allfields,60,8)
.......
SELECT 2
APPEND BLANK
replace itemno WITH lcitem, itemdesc WITH lcitemdesc
SELECT 1
skip
loop
ENDDO
When the row width in the text file is more than 254 Ch then I can not get complete line of the text due to field width 254 CH. I want to save each text file line in a single record with more than 254 Ch.
Is there any help?
Regards,
Zaheer