           BASIC HELP : MS4BI by MS4script   
   2022 version 1.10

Chapter 2: DECLARATION STRUCTURE

KEYWORD : none

Definition
Create a script with no program structure (optional)

Syntax

  
	 
			instructions ;

Example

  	
       	INTEGER :  i:=105 ;
		TEXT: stext1:= "MgPlanete";
		LONG : i2 :=2000000;
  
		display "  i :",i;
		display " stext1 :",stext1;
		display "  i2:",i2 ;
		enter;

Pre-requisites
none

Remarks
Not case sensitive

KEYWORD: BEGIN..END

Definition
Create a script with a simple blocked programming structure (optional)

Syntax

  
	       BEGIN
			  instructions.. 
	 	   END ;

Example

  	
       	INTEGER :  i:=105 ;
		TEXT: stext1:= "MgPlanete";
		LONG : i2 :=2000000;
     BEGIN /* display bloc 1 ..*/
		display "  i :",i;
		display " stext1 :",stext1;
		display "  i2:",i2 ;
		enter;
	 END;

Pre-requisites
None

Remarks
Not case sensitive

KEYWORD : BEGIN_Main END_Main

Definition
Create a structured MS4SCRIPT script: Call the following structures: global , begin_main , Function, Procedure.. (optional)

Syntax

  
	GLOBAL
	    declare..
	END_GLOBAL
	BEGIN_Main
        instructions..  	
	END_Main

Example

  	
    GLOBAL
    
		INTEGER :  i:=105 ;
		TEXT: stext1:= "MgPlanete";
		LONG : i2 :=2000000;
	END_Global

	BEGIN_Main
 
		display "  i :",i;
		display " stext1 :",stext1;
		display "  i2:",i2 ;
		enter;
	END_Main

Pre-requisites
Global .. End_global

Remarks
Not case sensitive

KEYWORD : FUNC(..)

Definition
Create a structured MS4SCRIPT script. Call the following structures: global, begin_main, Procedure.. (optional)

Syntax

  
	GLOBAL
	    declare..
	END_GLOBAL
	BEGIN_Main
        instructions..  
          function-name  return (var1,var2,varn..);		
	END_Main
	Func Name(var1,var2.. or void)
 
	begin_func
		local
			declare..
		end_local
			instructions..  
	 
	end_func

Example

  	
GLOBAL
    
 	INTEGER :  i:=105 ;
	TEXT: stext1;
	LONG : i2 ;
END_Global

BEGIN_Main

	RanDomInt(void ) return  (i,stext1,i2);
  	display " ";
	display " return i :",i;
	display " return stext1 :",stext1;
	display " return i2:",i2 ;
	enter;
END_Main
 

func  RanDomInt(void)
begin_func
local
integer : y   :=99   ;
long : y2      :=4310212  ;
TEXT : localText :="MgPlanete" ;
end_local
  display "before Local y :",y ;
    y := Random();

    display "After Local y : ",y ;
    display "After Local localText : ",localText;
return y ,localText,y2; 
end_func

Pre-requisites
Global .. End_global begin_main..end_main or perform ..exit

Remarks
Not case sensitive. The Return instruction can return up to 99 variables of all types (char,integer, long..)

KEYWORD : PROC (..)

Definition
Create a structured MS4SCRIPT script. Call the following structures: global , begin_main , Function, Procedure.. (optional)

Syntax

  
	GLOBAL
	    declare..
	END_GLOBAL
	BEGIN_Main
        instructions..  
          proc-name  return (var1,var2,varn..);		
	END_Main
	PROC Name(var1,var2.. or void)
 	begin_proc
		local
			declare..
		end_local
			instructions..  
 	end_proc

Example

  	
 GLOBAL 
 	CHAR : Msgframe1:255,Msgframe2:255, Gnumber:6; 
	INTEGER :X,I,ystop;
    INTEGER : Inverse := 1,Noinverse :=0 ;
End_Global

Begin_Main
	Screen_PRESENTATION(Void) ;
End_Main

PROC Screen_PRESENTATION(Void)
begin_proc
	LOCAL
		CHAR  : PostalAddress:512 := " $n  $n   
        	$n Rue Robert Caumont Immeuble P
			$n Les bureaux du lac II   
        	$n 75001 Paris $n FRANCE  ";
		INTEGER : Exit_TRANS1 :=0; 
		LONG : Color1 ;
  
	End_Local
.. instructions..
end_proc

Pre-requisites
Global .. End_global begin_main..end_main or perform ..exit

Remarks
Not case-sensitive RETURN instruction not permitted

Returns nothing

KEYWORD : PERFORM ....EXIT ;

Definition
Create a structured MS4SCRIPT script: Call the following Perform...Exit : Function, Procedure..

Syntax

  
	    instructions.. 
       PERFORM func or PRoc(var1,var2.. or void)..		
		instructions.. 
			EXIT ;
			
	PROC or FUNC Name(var1,var2.. or void)
 	begin_...
		local
			declare..
		end_local
			instructions..  
 	end_...

Example

  	
    Perform InsertTable(void);
	Exit ;
	
	proc InsertTable(void)
	begin_proc	
	** For example !
  
		DBconnect{Ms4DB}(LEnvDemoExcelDB); 
		TableExist{ms4db}("TABEXAMPLE") Return  ( msgsql) ; /* 2 return codes : TRUE or FALSE */
	 		if ( msgsql = TRUE) then Ms4_sql{ms4db} ( " Drop  Table  [TABEXAMPLE] "); end_if ;
	
		Ms4_SQL{ms4DB}("CREATE TABLE [TABEXAMPLE] "+ 
		"(      [INDEXID] TEXT,"+ 
		"       [LONGSTRING] char(1024),"+ 
		"       PRIMARY KEY (`INDEXID`) )");  
 
		Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX0','%s')",GeoMapRef[0].stringval);
		Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX1','%s')",GeoMapRef[1].stringval);
		Ms4_SQL{ms4DB}("INSERT INTO TABEXAMPLE VALUES('INDEX2','%s')",GeoMapRef[2].stringval);
	  ...
	 end_proc

Pre-requisites
none

Remarks
Not case sensitive

Interested in joining us? contact@mgplanete.com
The Mg Planete team

the official sites :
mgplanete.com
getms4bi.com
demos.ms4bi.com
help.ms4bi.com
ms4script.com

Download

official site :
getms4bi.com

Our purpose : Keep it simple !

written with ms4script

help 01.010.2022.8

MS4BI HELP 2022

Designer

BASIC HELP : MS4BI by MS4script

Chapter 2: DECLARATION STRUCTURE

KEYWORD : none

Definition

Syntax

Example

Pre-requisites

Remarks

KEYWORD: BEGIN..END

Definition

Syntax

Example

Pre-requisites

Remarks

KEYWORD : BEGIN_Main END_Main

Definition

Syntax

Example

Pre-requisites

Remarks

KEYWORD : FUNC(..)

Definition

Syntax

Example

Pre-requisites

Remarks

KEYWORD : PROC (..)

Definition

Syntax

Example

Pre-requisites

Remarks

KEYWORD : PERFORM ....EXIT ;

Definition

Syntax

Example

Pre-requisites

Remarks

Copyright 2022 by Mandragore Planete

Download

Our purpose : Keep it simple !

MS4BI in 5 minutes