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

Example

  declare Switch label;
  get file(In) list(Code);
  if Code = 1 then
    Switch = L1;
  else
    Switch = L2;
  get file(In) edit (W,X,Y,Z)
      (R(Switch));
  L1:  format (4 F(8,3));
  L2:  format (4 E(12,6));

Switch has been declared a label variable. The second GET statement can be made to operate with either of the two FORMAT statements.


Terms of use | Feedback

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