SELECT STK_REC_NUM2 && look at the character table
SCAN
	 insert into STK_REC_REAL (FIELD_C, FIELD_N, FIELD_D) ;
	 	values (alltrim(STK_REC_NUM2.FIELD_C), ;
	 	iif(right(alltrim(STK_REC_NUM2.FIELD_N), 1) = '-', ;
	 		-val(alltrim(STK_REC_NUM2.FIELD_N)), ;
	 		val(alltrim(STK_REC_NUM2.FIELD_N))), ;
	 	STRINGYMDTODATE(alltrim(STK_REC_NUM2.FIELD_D))
ENDSCAN

alternately:

select padr(ltrim(STK_REC_NUM2.FIELD_C), FIELD_C_length) as FIELD_C, ;
	 	iif(right(alltrim(STK_REC_NUM2.FIELD_N), 1) = '-', ;
	 		-val(alltrim(STK_REC_NUM2.FIELD_N)), ;
	 		val(alltrim(STK_REC_NUM2.FIELD_N))) as FIELD_N, ;
	 	STRINGYMDTODATE(alltrim(STK_REC_NUM2.FIELD_D) as FIELD_D ;
	 from STK_REC_NUM2 ;
	 into table temptable
	 
select STK_REC_REAL
append from temptable