RosettaCodeData/Task/Generic-swap/PL-I/generic-swap-1.pli

%swap: procedure (a, b);
   declare (a, b) character;
   return ( 't=' || a || ';' || a || '=' || b || ';' || b '=t;' );
%end swap;
%activate swap;