>SET TALK ON >SELECT modacad.mainkey as mainkey, planning.planextra4 as group, planning.planextra1 as element, planning.planextra3 as weight ; >FROM "U:\Questpdm\Data\modacad.dbf", "U:\Questpdm\Data\planning.dbf" ; >WHERE modacad.mainkey=planning.mainkey and modacad.mainkey="T56*SS2004*NEIL001*SAMPLE" ; >AND planning.lev1=1 ; >INTO CURSOR fablinsty >SET TALK OFF >>
>CREATE CURSOR crsrisk ; > (Mainkey c(30), Group C(30), Element C(30), Weight C(10)) > >APPEND FROM fablinsty FIELDS mainkey, group, element, weight >>