01 | 
02 | ** ****************************************************************************************** *
03 | ** MANDRAGORE 
04 | ** *******************************************************************************************
05 | 
06 | #include  "#SYSPATHMANDRAGORE+\zInclude\IncludeSysMs4.h"
07 | ** GLOBAL VAR
08 |   
09 | CHAR    : ZName:50,Zname2:50,LpathDataBaseExcel:255,LCurrentDir:255,lsetWintext:255;    
10 | INTEGER : Msgsql,X ,no:=0,yes:=1,row ,i;
11 | Long : color1,color2,color3; 
12 | 
13 | 
14 | ** ****************************************************************************************** *
15 | ** (ms4 script) - MANDRAGORE WORKSPACE for WINDOWS & WEB- :   MAKE DATABSE
16 | ** *******************************************************************************************
17 |  
18 | CHAR  : LEnvDemoExcelDB:256 := "#SYSPATHWWW+\mandragorechart\database\MANDRAGORE-CENTRAL-CUBES\MANDRAGORE-DemoExcelCube.db";  
19 |  
20 |          
21 |         BEGIN ** environnement DB
22 |  
23 |                     DBexist{Ms4DB}(LEnvDemoExcelDB) return (X) ;
24 |         /*   return codes */
25 |         ** x = 1 : Ok , x = 0 Not ok */
26 |          if (x void) then
27 |                   Display " not found ", LEnvDemoExcelDB;  Exit;
28 |                  End_if;
29 |                 END;
30 |                  BEGIN ** Call function
31 |                  call : function ("LoadDbWeb")
32 |                   exporting : LEnvDemoExcelDB
33 |                    exporting : "DBDemoExcel";
34 |                 END;
35 |      
36 |  
37 |   
38 |  
39 |       
40 |