Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, Language Reference Manual

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.

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)