//
define aa[10];
define bb[10];
PROC main;
	$a = '2000/04/20';
	print logout(1,'%11s',$a);
	print logout(1,'%-11s',$a);
	print logout(1,'%9s',$a);
	print logout(1,'%-9s',$a);
	print logout(1,'%s %s %s',1,10.5,to_bulks(987));
	$b = '';
	$c = logout(1,'(%s) %x %d',$a,$a);
	$a = 268;
	$c = logout(1,'%d %x %e',$a,$a,$a);
	$a = 1.25;
	$c = logout(1,'%.3f %d %g %a',$a,$a,$a,$a);
	n = getlogparm('DEBUG_LOG',bb);
	print n *bb;
	print setlogparm('DEBUG_LOG',1,10,'10k');
	print getlogparm('DEBUG_LOG',aa) *aa;
	print reslogparm(bb,n);
	print getlogparm('DEBUG_LOG',aa) *aa;
	RETURN $ERROR;
END PROC;
