>FUNCTION GENTOFIL( lcFieldname,lcFilename ) > >lcTempfile=SYS(3) && Assign temporary file name >COPY TO (lcTempfile) FIELDS (lcFieldname) NEXT 1 && Copy General field data to it >liHandlein=FOPEN(lcTempfile+".FPT") && Open its .FPT > >*--Examine .FPT contents to determine type of embedded document > >FSEEK(liHandlein, ??? ) >liEndOffset= ??? >liSize=FSIZE(lcTempfile+".FPT")-liEndOffset && Determine data size >liHandleout=FCREATE(lcFilename+"."+lcExtension) && Create output file >FWRITE(liHandleout,FREAD(liHandlein,liSize)) && Copy data to it >FCLOSE(liHandlein) && Close the temporary .FPT.. >FCLOSE(liHandleout) && ...and the output file >ERASE (m.lcTempfile) >>
>>APPEND GENERAL c_grph.olegrph >>>>