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

Example

In the following example, the statement leave A; transfers control to C.

  If Time_to_process_X then

 
  A:  do I = lbound(X,1) to hbound(X,1);
         do J = lbound(X,2) to hbound(X,2);
            If X(I,J)=0 then
               leave A;          /* control goes to C, not B */
            else
               do;

·
·
·
end; end; end;   Else   B: do;
·
·
·
end;   C: statement after group A;

Terms of use | Feedback

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