// RPE export view (run on DOORS main window)
// (it retrieves info from log file)
// ------------------------------------------
pragma runLim, 0
pragma stack, 1000000

Module currMod
View   currView, tempView
string currModName, currViewName, templateDotName, fullnameDOC


// read data from data.log file
string inFileName = "C:\\Users\\data.log" // **** data.log only provides publish info to this DXL ****
Stream input = read inFileName
input >> currModName
input >> currViewName
input >> templateDotName
input >> fullnameDOC
close(input)
flush(input)
flushDeletions

// open the module, view (force it to be displayed)
read(currModName,true)
currMod = current Module
setFocus(currMod)
load (view currViewName)

// export with RPE
bool confirm(string s)     {print "Confirmed: " s "\n"; return true}
void ack(string s)         {print "Ack: " s "\n"}
void errorBox(string s)    {print "Error: " s "\n"}
void warningBox(string s)  {print "Warning: " s "\n"}
void acknowledge(string s) {print "Acknowledge: " s "\n"}
void infobox(string s)     {print "InfoBox: " s "\n"}
void info(string s)        {print "Info: " s "\n"}

DB tmpDB=null
DBE tm=null

void oldshow(DB x){show x}
void show(DB x){tmpDB=x}

print "Call RPE light (Document Generation)\n" // **** till here no error and currMod is shown ****
#include <standard/export/RPE_Light/DoorsExport.inc> // **** since here I get errors (duplicated vars..) ****
showRPEExportDialog(LS_("String_Export_To_Word", NLSTEMP_("Export to Word")), (NLS_("Word")), (NLS_(".doc")))

void newcb(DBE x){
  print "Calling timercallback ...\n";
  stopTimer tm;
  exportCB(null)
}
tm = timer(tmpDB, 0.2, newcb,"")

realize tmpDB;

set(includeEmptyAttrsToggle,false)
set(viewNameToggle,false)
set(includeTablesToggle,false)
set(exportFileName,fullnameDOC)
set(templateFile,templateDotName)

print "About to enter message loop ...\n";
oldshow tmpDB

close(currMod)
//exit_