Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

  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 は、ラベル変数として宣言されています。 2 番目の GET ステートメントは、2 つの FORMAT ステートメントのどちらでも使うことができます。


Terms of use | Feedback

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