Sequence Dump and Load

[lloydt]

Is anyone aware of a way to programatically dump and load sequence values? I've attempted dumping and loading the _sequence table but there's apparently some magic that takes place in the admin tool that I'm missing. :tear:

Thanks!

 

[joey.jeremiah]

there is an awkward way to call _dmpseqs.p and load_seq.p, although, i believe you can't specify which sequences to dump/load.

do a search on these procedures @peg.com for examples.

but it's also fairly strait forward to write you own.

 

[joey.jeremiah]

progress version ?

maybe if i'll have some free time i'll put something together.

 

[lloydt]

Thanks for the point in the right direction, I was able to hack something together, here it is. On a sidenote, need to have the $DLC/src/prodict.pl in the propath for this to work.

dumpseq.p
----------
def input parameter ipDbName as char no-undo.
def input parameter ipOutFile as char no-undo.
{ prodict/user/uservar.i "new" }
{ prodict/dictvar.i "NEW" }
/* not sure if this is version specific, written to dump from 91e04 db */
drec_db = 928.
user_dbname = ipDbName.
USER_env[6] = "no-alert-boxes".
USER_env[2] = ipOutFile.
RUN prodict/DUMP/_dmpseqs.p "new".

loadseq.p
---------
DEF INPUT PARAMETER ipFile AS CHAR NO-UNDO.
RUN prodict/load_seq.p
(INPUT ipFile,
INPUT "").

 

[lloydt]

Forgot to mention.
Progress 91e04 - dump
Openedge 101b01 - load