/* REXX */

   popcount=0;padcount=0

   /* auswertung der plandaten */
do forever
   address tso "execio 1 diskr opcsrpl"
   if rc>0 then leave
   parse pull line
   ... 
      out=out2 pl_prad pl_prws pl_prop pop pad
      queue out
      address tso "execio 1 diskw opcprout"
   end
end
exit