Example 2
A: procedure;
declare Rate float (10),
Time float(5),
Distance float(15),
Master file;
1 call Readcm (Rate, Time, Distance, Master);
3 Readcm:
2 procedure (W,X,Y,Z);
declare W float (10),
X float(5),
Y float(15), Z file;
get File (Z) list (W,X,Y);
Y = W * X;
if Y > 0 then
return;
else
put list('ERROR READCM');
end Readcm;
end A;
- 1
- The arguments Rate, Time, Distance, and Master are passed to the procedure Readcm in 3 and associated with the parameters W, X, Y, and Z.
- 2
- A reference to W is the same as a reference to Rate, X the same as Time, Y the same as Distance, and Z the same as Master.
- 3
- Note that Readcm is not explicitly declared in A. It is implicitly declared with the ENTRY attribute by its
specification on the PROCEDURE statement.
|
This information center is powered by Eclipse technology. (http://www.eclipse.org)