RosettaCodeData/Task/Introspection/PL-I/introspection-1.pli

   S = SYSVERSION();
   if substr(S, 6, 6) < '050000' then
      do; put skip list ('Version of compiler is too old'); stop; end;