I have a gui to turn a delimited dat file into a database and I wanted to shorten the code. So I made dynamic field names but it doesn't work. Here is the code. Help is greatly appreciated.

local fld, fldname
set delete on
set defa to 'c:\rmiweb'
gcCsvName = getfile('DAT', 'Open Csv:')
if empty(gcCsvName)
	return 0
else
	create cursor temp ;
		(field_1 C(254), field_2 C(100), field_3 C(100), field_4 C(100), field_5 C(100), field_6 C(100),;
		field_7 C(100), field_8 C(100), field_9 C(100))
	append from (gcCsvName) delimited
	scan
		for i = 1 to 9
			do case
			case i = 1
				fld = i+1
                                    *This is where im setting my dynamic fld Name
				fldname = "field_" + str(fld)
				a = at('|',field_1,1)
				a1 = alltrim(substr(field_1,1,a-1))
                                    *This is where I'm using it
				replace (fldname) with a1
			case i > 1 and i < 9
				fld = i+1
				fldname = "field_" + str(fld)
				z = at('|',field_1,i-1)
				b = at('|',field_1,2)
				b1 = alltrim(substr(field_1,z+1,(b-1) - z))
				replace (fldname) with b1
			case i = 9
				fld = i+1
				fldname = "field_" + str(fld)
				z = at('|',field_1,i-1)
				h = at('|',field_1,8)
				h1 = alltrim(substr(field_1,z+1,(h-1) - z))
				replace (fldname) with h1
		endcase
	endfor
endscan
browse
endif