DEF VAR dfName AS CHAR NO-UNDO.
DEF VAR seqName AS CHAR NO-UNDO.
DEF VAR dfPath AS CHAR NO-UNDO INITIAL "e:\temp".

DISPLAY LDBNAME("DICTDB").

UPDATE dfPath.

ASSIGN dfName = dfPath + "/" + LDBNAME("DICTDB") + ".df".
ASSIGN seqName = dfPath + "/" + LDBNAME("DICTDB") + "_seq.d".

RUN prodict/dump_df.p   ("all",dfName,SESSION:STREAM).

RUN prodict/dump_d.p   ("_user",dfPath,SESSION:STREAM).

OUTPUT TO seqName.
    PUT UNFORMATTED "OUTPUT TO _SeqVals.d." SKIP.
    FOR EACH _Sequence NO-LOCK:
        PUT UNFORMATTED
            "    EXPORT " _Sequence._Seq-Num " " QUOTER(_Sequence._Seq-Name) " CURRENT-VALUE( " _seq-name ")." SKIP.
    END.
    PUT UNFORMATTED "OUTPUT CLOSE.".
OUTPUT CLOSE.