//
//var hx hash 20, aa as char int;
defvar x[5] as DEC(5,2) += 23.45;
defvar xx as char(10) = 1234567890;
defvar y[3],z[2,3,4]= 1,2,3;
//defvar y[3],z 2 3 4 = 1,2,3;
//defvar y[3],z 2 3 4 as INT concat= 1,2,3;
//def type array int aaa[5];
//type array int aaa[5];
//typedef array int aaa[5];
typedef array int aaa[5];
//defvar yy[3] as aaa = 4,5,6,7;
def aaa yy[3] = 4,5,6,7;
dim s[7], a ='A';
//dim yy as aaa = 4,5,6,7;
//dim zz[3] as aaa;
def public aaa yav;
def var yav 3 as aaa;
//define var %yav as ya;
define type mappedarray $ym;
define var %ymv as ym;
//define var %yma[3] as ym;
proc main;
	print hx aa aaa;
	print x *x;
	print xx;
	print y z *y *z;
	print s a;
	print yy *yy;
	print zz zz[0];
	yy[0] = s;
	array yy = 1,2,3,4,5,6,7,8,9,10,11,12,13;
	print yy *yy;
	print %ym;
	print %ymv *%ymv;
	print %yma *%yma;
	return ERROR;
end proc;
