/*
*/
 
arg fn ft fm .
if ft = '' then ft = 'SREXX'
If '$' = substr(ft,1,1,) Then ft = substr(ft,2)
 
If ft = 'SREXX' Then cft = 'CREXX'
If ft = 'SREXX' Then ift = 'IREXX'
If ft = 'SREXX' Then nft = 'REXX'
 
If ft = 'SEXEC' Then cft = 'CEXEC'
If ft = 'SEXEC' Then ift = 'IEXEC'
If ft = 'SEXEC' Then nft = 'EXEC'
 
If ft = 'SCGI' Then cft = 'CCGI'
If ft = 'SCGI' Then ift = 'ICGI'
If ft = 'SCGI' Then nft = 'CGI'
 
say 'EXEC REXXC' fn ft fm '(' ,
   'CEXEC('fn cft fm')' ,
   'IEXEC('fn ift fm') SL'
 
'EXEC REXXC' fn ft fm '(' ,
   'CEXEC('fn cft fm')' ,
   'IEXEC('fn ift fm') SL'
 
If rc <> 0 Then exit rc
 
'COPY' fn cft fm '=' nft '= (OLDD REPL'
 
exit rc