execute ibeblock ExtractMetadata (
    CodeDir varchar(1000) = 'E:\IBEBlocks\' comment 'Path to necessary IBEBlocks'
    ScriptFile varchar(1000) = 'E:\BlockScript.sql' comment 'Name of the script file')
 returns (TimeAll float)
 as
 begin
    Time1 = [[ibec_GetTickCount()]];
    SPExtr = [[ibec_LoadFromFile]](CodeDir || '[[Extract-SPExtractIBEBlock | SPExtract.ibeblock]]');
    DomExtract = ibec_LoadFromFile(CodeDir || '[[Extract-DomExtractIBEBlock | DomExtract.ibeblock]]');
    GensExtract = ibec_LoadFromFile(CodeDir || '[[Extract-GensExtractIBEBlock | GensExtract.ibeblock]]');

    FS = [[ibec_fs_OpenFile]](ScriptFile, __fmCreate);
    execute ibeblock DomExtract (FS);
    execute ibeblock GensExtract (1, FS);
    execute ibeblock SPExtr (CodeDir, 'CREATE', 3, TRUE, FS);
    execute ibeblock SPExtr (CodeDir, 'ALTER', 3, FALSE, FS);
    [[ibec_fs_CloseFile]](FS);
    Time2 = ibec_GetTickCount();
    TimeAll = (Time2 - Time1) / 1000;
    suspend;
 end

back to top of page
<< SPExtract.ibeblock | IBEBlock | Comparing databases using IBEBlock >>