//
dim yd as DEC(5,2) = 345.67;
define string ss;
//define char ERROR;
define array xx[10];
sub main;
	ss = 'ABCD';
	print yd ss;
	ss = '1234567890';
	print ss;
//	char(2) ss = 'XYZ';
	char(2) ss = ss & 'dfrgsds';
	print ss;
	vari ss = '123';
	print ss;
	ss = ss;
	print ss;
	char ss = 'qwert';
	print ss;
	dec ss=123.45;
	print ss;
	return(ERROR);
end sub;
