test: proc options(main); dcl (a,b,c) float binary; put list ('Type Three Numbers: '); get list (a,b,c); put list ('The Largest Value is', max3(a,b,c)); max3: proc(x,y,z) returns (float binary); dcl (x,y,z,max) float binary; /* compute the largest of x, y, and z */ if x > y then if x > z then max = x; else max = z; else if y > z then max = y; else max = z; return(max); end max3; end test;