Consider the following timings:
 
Do i = 1 to 1000
  'EXECIO 1 PUNCH (STRING' t.i
End
--> 2.79 sec
 
'EXECIO 1000 PUNCH (STEM T.'
--> 2.09 sec, VM/SP 4 only
 
'CARD PUNCH T STEM A' (where "T STEM A" is a file containing all the T.i)
--> 0.35 sec, but more DASD I/O
 
 
  The first case is the one presently used. The second case could be
implemented as an alternative method for SP4 systems (ie If cmsrel > 3
Then...) The last case is by far the fastest, works on all systems, but issues
a lot of DASD I/O as a disk file is re-read every time. I *love* EXECIO....
 
  Eric