FoxPro/Visual FoxPro - Cambiar de posicion una tabla

Hola y gracias de antemano
Miren tengo un problema no busco como realizar un cambio de posicion de datos por ejemplo tengo una tabla con los siguientes campos y tengo

no_ctr solo existen 5 numeros pero estos se repiten
cant_rep son las cantidades de cada no_ctr

No_ctr identifica cant_rep
5 A 10
4 B 9
3 C 4
2 D 3
1 E 1
2 B 10
1 D 5

estos datos necesito que queden asi con los sig. campos

no_ctr campo_A campo_B campo_C campo_D campo_E
1 0 0 0 5 1
2 0 2 0 3 0
3 0 0 4 0 0
4 0 9 0 0 0
5 10 0 0 0 0

por su ayuda muchas gracias...

close database
dimension arreglo(5,6)
sele 1
use control1 shared
sele 2
use control2 exclusive
scan
delete
endscan
pack
for i = 1 to 5
for y = 1 to 6
store "0" to arreglo(i,y)
endfor
endfor
for i = 1 to 5
store alltrim(str(i)) to arreglo(i,1)
endfor

for n = 1 to 5
sele 1
go top
scan for no_ctr = alltrim(str(n))
do case
case identifica = "A"
store cant_rep to arreglo(n,2)
case identifica = "B"
store cant_rep to arreglo(n,3)
case identifica = "C"
store cant_rep to arreglo(n,4)
case identifica = "D"
store cant_rep to arreglo(n,5)
case identifica = "E"
store cant_rep to arreglo(n,6)
endcase
endscan
endfor

sele 2
append from array arreglo

Estructura de las tablas:
control1
campo tipo longitud
no_str caracter 1
identifica caracter 1
cant_rep caracter 2

control2
no_str caracter 1
a caracter 1
b caracter 1
c caracter 1
d caracter 1
e caracter 1

--devilzito--