/* ***************************************************************************
COPYRIGHT (C) 2005 BY SMART-IT-CONSULTING.COM
* Do not remove this header
* This program is provided AS IS 
* Use this program at your own risk
* Don't publish this code, link to http://www.smart-it-consulting.com/ instead
*************************************************************************** */

{config.i}


FOR EACH DICTDB._file WHERE DICTDB._file._File-Number > 0 
    AND NOT DICTDB._file._file-name BEGINS "SYS":U NO-LOCK:
    CREATE ttTables.
    ASSIGN ttTables.ttTable = DICTDB._file._file-name.
    
END.

FOR EACH ttTables:
    RUN dumpData.
END.



RETURN.

PROCEDURE dumpData:
        
    ASSIGN ttTables.ttProg = cProgDir + ttTables.ttTable + ".p":U
           ttTables.ttFile = cDumpDir + ttTables.ttTable + cDumpExt
           .
    OUTPUT TO VALUE(ttTables.ttProg).
    PUT UNFORMATTED "OUTPUT TO " ttTables.ttFile ". ~n"
                    "FOR EACH " ttTables.ttTable " NO-LOCK: ~n"
                    "EXPORT DELIMITER '" cDelimiter "' " ttTables.ttTable ". ~n"
                    "END. ~n"
                    "OUTPUT CLOSE. ~n"
                    "RETURN."
                    .
    OUTPUT CLOSE.
    RUN VALUE(ttTables.ttProg).


    RETURN.
END PROCEDURE.