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 ステートメントのどちらでも使うことができます。