close data all open data (cStruDBC) && source of stored procedures cStruTimeStamp = dbgetprop('strudbc','database','comment') copy procedures to 'struprocs.txt' close database all open data (cDataDBC) && target database set database to (cDataDBC) =dbsetprop('datadbc','database','comment',cStruTimeStamp) *-- check if the procedure is null or empty struContents = filetostr('struprocs.txt') if empty(struContents) or isnull(struContents) else append procedures from 'struprocs.txt' overwrite && error occurs here!!! endif erase struprocs.txt