##IF odbcprintfld('fem001', 'nr01', 'nr01=17')=0
     newdir('..\..\ca_fem\_001')
     odbcchanstru('fem003', 'fem003_d')
     
     ***my_upgr:={upload, reconstruct, views}
     my_upgr:={.t., .f., .f.}
     
##ENDIF      
##RETURN     