record array(a,b,c,d,e,f,g)

procedure dummy(u,v,x,y,z)
   suspend u | v
   return x
end

procedure main()
   &trace := 2
   dummy(1)
   dummy(1,.20,&null,[])
   &trace := -1
   dummy(1,2.0,&null,[])
   dummy()
end