%begin
! PASSES A RECORD BY VALUE
%recordformat fm((%integer i %or %byte b1,b2,b3,b4))
%record(fm) a,b

%routine fred(%record(fm) x,%integer y, %record(fm) z)
   write(x_b1,1)
   write(x_b2,1)
   write(x_b3,1)
   write(x_b4,1)
   write(z_b1,1)
   write(z_b2,1)
   write(z_b3,1)
   write(z_b4,1)
%end

a_i=x'01020304'
b_i=x'05060708'
fred(a,9,b)
%endofprogram