##IF odbcprintfld('q80', 'nr01', 'nr01=729')=0
     newdir('..\..\query\_001')

**     eval(my_blchan, 'q70')
     
     **add priv.      
**     callfpeg("?query?funp13", {'q00.0100'})     
     
     ***my_upgr:={upload, reconstruct, views, upload_reference}
     my_upgr:={.f., .f., .f., .t.}
##ENDIF      
##RETURN     