• ManualADOLoad

Manual ADO Load

The following code can be used to load ADO files, even without a properly startet Dynamics environment (that's why I don't use the aflaunch.i to start the PLIP). The ICFDB needs to be loaded and the Dynamics code needs to be available in PROPATH. You can use this when you have "destroyed" your Class- or Attribute information to load the gscot or rycat ado file.

You can use the same as a PLIP call as well.

/* This table is used to receive the parameters for an import from
   the caller. */
DEFINE TEMP-TABLE ttTableProps NO-UNDO
    FIELD cEntityMnemonic AS CHARACTER
    FIELD lOverWrite AS LOGICAL
    FIELD lDeleteRelated AS LOGICAL
    FIELD lKeepOwnSiteData AS LOGICAL
    INDEX pudx IS UNIQUE PRIMARY
      cEntityMnemonic .

/* This temp-table is used to pass parameters into import
   deployment dataset */
DEFINE TEMP-TABLE ttImportParam NO-UNDO
    FIELD cParam AS CHARACTER
    FIELD cValue AS CHARACTER
    INDEX dx IS PRIMARY
      cParam .

DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE pcReturnValue AS CHARACTER NO-UNDO.

RUN af/app/gscddxmlp.p PERSISTENT SET h.

RUN importDeploymentDataset IN h
   ( "src/dynamics/db/icf/dump/rycat.ado" /* relative Path */ 
     "c:\dynamics_base", /* Dynamics/Progress root*/
     "c:\temp\adoload.log", /* Log-File */
     TRUE, /* Overwrite */
     TRUE, /* Delete */
     FALSE, /* Keep Own Data */
     TABLE ttImportParam,
     TABLE ttTableProps,
     OUTPUT pcReturnValue) .

IF ERROR-STATUS:ERROR OR pcReturnValue > "" THEN
    MESSAGE ERROR-STATUS:ERROR SKIP
            pcReturnValue
        VIEW-AS ALERT-BOX INFO BUTTONS OK.

DELETE PROCEDURE h.