2 Parse Arg rexx_exe infile outfile
3 Call Stream outfile
, 'C', 'OPEN WRITE REPLACE'
4 Call Lineout outfile
, "#!" || rexx_exe
5 Do While( Lines( infile
) > 0)
6 line = Linein( infile
)
7 Call Lineout outfile
, line
9 Call Stream outfile
, 'C', 'CLOSE'