THIS is the code, sorry for the mistake.
use mydet
SELE DIST tabla FROM base WHERE UPPER(LEFT(nombre,3))
=="COD" INTO CURSOR MyRelTables
SELE MyRelTables

SCAN
SELECT tabla, nombre, tipo, ancho, decimales FROM
base ;
WHERE MyRelTables.tabla = base.tabla ;
ORDER BY tabla, nombre INTO DBF allt(tabla)
+".dbf" CURSOR MyDetTemp

SELE MyDetTemp
REPORT FORM c:\report\cconfbase.FRX TO PRINTER
PREVIEW

ENDSCAN
.

Best regards,
Pablo