[progress Communities] [progress Openedge Abl] Forum Post: Re: Exporting And Importing...

[Jeff Ledbetter]

/* rtb_dumppartpolicies.p Dump Partition Policies for the specified (by logical DB name) Database. */ ROUTINE-LEVEL ON ERROR UNDO, THROW. DEFINE INPUT PARAMETER pcDbName AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER pcSchemaDir AS CHARACTER NO-UNDO. &GLOBAL-DEFINE MIN-VERSION "11.4.0". &IF PROVERSION GE {&MIN-VERSION} &THEN DEFINE VARIABLE cFilename AS CHARACTER NO-UNDO. DEFINE VARIABLE service AS OpenEdge.DataAdmin.DataAdminService NO-UNDO. cFilename = SUBSTITUTE("&1/&2_PartitionPolicies.json",pcSchemaDir,pcDbName). service = NEW OpenEdge.DataAdmin.DataAdminService(pcDbName). service:GetPartitionPolicies():ExportTree(cFilename). FINALLY: DELETE OBJECT service NO-ERROR. END FINALLY. &ENDIF /* rtb_inst/schupd3.p Load Table Partition Policies for DICTDB from specified file. */ ROUTINE-LEVEL ON ERROR UNDO, THROW. DEFINE INPUT PARAMETER pcFilename AS CHARACTER NO-UNDO. &GLOBAL-DEFINE MIN-VERSION "11.4.0" &IF PROVERSION GE {&MIN-VERSION} &THEN DEFINE VARIABLE service AS OpenEdge.DataAdmin.DataAdminService NO-UNDO. DEFINE VARIABLE policies AS OpenEdge.DataAdmin.IPartitionPolicySet NO-UNDO. service = NEW OpenEdge.DataAdmin.DataAdminService(LDBNAME("DICTDB")). policies = service:GetPartitionPolicies(). policies:ImportTree(pcFilename). service:UpdatePartitionPolicies(policies). FINALLY: DELETE OBJECT policies NO-ERROR. DELETE OBJECT service NO-ERROR. END FINALLY. &ENDIF

Continue reading...