Article

4GL/ABL: How to programmatically dump the values of the connected database 4GL sequences?

« Go Back

Information

 
EnvironmentProgress 9.x
OpenEdge 10.x
All Supported Operating Systems
Question/Problem Description
4GL/ABL:  How to programmatically dump the values of the connected database 4GL sequences?
How to dump the values of the sequences of a 4GL database using 4GL?
Clarifying Information
Error Message
Defect/Enhancement Number
Cause
Resolution

The following code will dump the values of all the 4GL sequences of the first connected database ( LDBNAME(1) ):

OUTPUT TO TemporaryProcedure.p.
FOR EACH _Sequence WHERE NOT _Sequence._Seq-name BEGINS "$":
    PUT UNFORMATTED
        'EXPORT '
        _Sequence._Seq-Num
        ' '
        QUOTER(_Sequence._Seq-Name)
        ' CURRENT-VALUE('
        _Sequence._Seq-Name
        ','
        LDBNAME(1)
        ').'
        SKIP.
END.
OUTPUT CLOSE.

OUTPUT TO SequenceDataDump.d.
RUN TemporaryProcedure.p.
OUTPUT CLOSE.

Workaround
Notes
Attachment 
Feedback
 
Was this article helpful?

   

Your feedback is appreciated.

Please tell us how we can make this article more useful.



Characters Remaining: 255

 



Copyright © 1993-2014. Progress Software Corporation. All Rights Reserved.
Previous MonthNext Month
SunMonTueWedThuFriSat