ARRAY : ArrayName OCCURS XXXX { scalar } ;   struct   
	CHAR     :  ArrayName OCCURS XXXX;
	INTEGER  :  ArrayName OCCURS XXXX;
	LONG     :  ArrayName OCCURS XXXX;
	FLOAT    :  ArrayName OCCURS XXXX;
	DOUBLE   :  ArrayName OCCURS XXXX;
	
	 

  
  Array : Department OCCURS 10 { INTEGER Number ; CHAR Name :25 ; } ;
  
  BEGIN
   integer i :=2 ;
   Department[i].Number:= 99 ;
	 
    Display " Department[2].Number :", Department[2].Number;
  END ;
   

 	
CHAR    : Array : tableSAP :40 Occurs 10,     cVar:40 ;
INTEGER : Array : Number0 Occurs 10 ;
LONG    : Array : NumberL0 Occurs 10 ;
FLOAT   : Array : MontantF Dec(2) Occurs 30;
DOUBLE  : Array : MontantD Dec(4) Occurs 30;
integer  x1:=25:	

 tablesap[1] := "PRPSS"; tablesap[2] := "PROJS";
 Number0[4]  := 99;
 NumberL0[6] := 199999;
 MontantF[x1] := 2000.02;
 MontantD[18] := 910002000.01234;
 cVar := "toto";
 Display " ";
 SetColorText (Hwdisplay:Blue,Red) ;
 		
	Display "------------------------------------------------------------------------- " ;
	Display "     ARRAY --------------------->SIMPLE! ....          " ;
	Display "------------------------------------------------------------------------- " ;
 
	SetColorText(Hwdisplay:green,black) ;
 display "CHAR: table 1  :" ,tablesap[1],"    table 2 :",tablesap[2],"     CVar :",cvar;
  skipline 2;
 display  "INTEGER: Number0[4] :" , Number0[4];
  skipline 2;
 display "LONG: NumberL0[6] :" , NumberL0[6];
  skipline 2;
 display "FLOAT: MontantF[25] :" , MontantF[x1];
  skipline 2;
 display "DOUBLE: MontantD[18] :" , MontantD[18];  
  

Pre-requisites

none

Remarks

NUMBER OF OCCURRENCES <999999 Advice: Create a temporary table: MS4_SQL{ ..} "CREATE VIEW TEMP name..." + SELECT..

---

KEYWORD : TABLEBTREE

Definition

Simple Btree Memory array with 1 dimension and n data values

Syntax

  
 	
	 TABLEBTREE : nameTabletree
		{ "constants".. };
	
	 

Example

  
		Tablebtree : Toto
		{"Z" , " A", "B", "C", "EEF", " tuesday" ,"12", "20000" } ;

	

Pre-requisites

none

Remarks

NUMBER OF CONSTANTS : no constraints

See also

TABLEBTREE_UPDATE, TABLEBTREE_INSERT, TABLEBTREE_DELETE,TABLEBTREE_DELETEALL,TABLEBTREE_DELETEALL,TABLEBTREE_LOOKUP,TABLEBTREE_GETSIZE,TABLEBTREE_TRACE

---

---

KEYWORD : TABLEBTREE_UPDATE, TABLEBTREE_INSERT,TABLEBTREE_LOOKUP,
TABLEBTREE_GETSIZE, TABLEBTREE_DELETE,TABLEBTREE_DELETEALL

Definition

Simple Btree Memory array with 1 dimension and n data values : UPDATE, INSERT + LOOKUP, DELETE, DELETEALL

Syntax

  
 	
	 	 TABLEBTREE_UPDATE(nameBtree, old value in btree, new value) (optional) return (0 or 1) (integer) ; 
		 TABLEBTREE_INSERT(nameBtree,   new value);
		 TABLEBTREE_LOOKUP(nameBtree,   new value) (optional)  return (0 or 1) (integer) ; 
		 TABLEBTREE_GETSIZE(nameBtree) return value(integer) return (0 or 1) (integer)
		 TABLEBTREE_DELETE(nameBtree,    value)(optional)  return (0 or 1) (integer) ; 
		 TABLEBTREE_DELETEALL(nameBtree)(optional)  return (0 or 1) (integer); 
	
	 

Example

  
INTEGER :   X ;
Tablebtree : Toto
		{"Z" , " A", "B", "C", "EEF", " tuesday" ,"12", "20000" } ;
 	
	 Tablebtree_Update(Toto,"12","999") Return(X); /* change 12 by 999 !!! */
 	IF (X Not_Void) 
	THEN Display " Update it's OKKKKKKKKKKKKKK........12, and 999 :  ",X ;
	ELSE Display " Update it's NOT  OK ........ 12 :   " ,X ;
	END_If ;
	
	Tablebtree_Insert(Toto,"MGPLANETE");
	Tablebtree_Lookup(Toto,"MGPLANETE") Return  (X);
	IF (X Not_Void) 
	THEN Display "  Found :  MGPLANETE"  ;
	ELSE Display " NOT Found :MGPLANETE ";
	END_If ;
	Tablebtree_Getsize(toto) return(x);
    Display "Getsize TableBtree(toto) : ",x;
	
	Tablebtree_Delete(Toto,"EEF") Return(X); /* returning Not obligatoire */
 	IF (X Not_Void) 
	THEN Display " Delete it's OKKKKKKKKKKKKKK........EEF :  ",X ;
	ELSE Display " Delete it's NOT  OK ........ EEF :   " ,X ;
	END_If ;
 
  Tablebtree_DeleteAll(Toto) ;** Clear All 
	

Pre-requisites

DECLARE TABLEBTREE

Remarks

return value : 0 = not found or KO , 1= found or ok

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

---

Copyright 2022 by Mandragore Planete

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 in 5 minutes