/* REXX     MREN     Rename a member
                     Syntax:  MREN  original_name  new_name
                     MREN  --MUST-- be called from a command table
                     entry with ZCTACT of
          SELECT CMD(MREN |&zdsn |&zmem |&zmemb |&zparm)

*/ arg argline                         /* pro-forma quick-start      */
if argline = "" then do                /* no command table?          */
   address TSO
   parse source     .    .        exec_nm   .
   "CLEAR"
   say
   say exec_nm "cannot proceed because there is no data to process."
   say
   say "You may not have a command-table entry with the proper"
   say "configuration, or you may not have loaded your command table."
   say
   say exec_nm "can only be exercised via a command-table entry.  If  "
   say "you do not have a command table, you cannot run this routine. "
   "NEWSTACK";pull;"DELSTACK"
   "CLEAR"
   exit
   end
address TSO
arg parms "((" opts
opts = Strip( opts,'T','5d'x )
parse var opts "TRACE"  tv  .
parse value tv "N"  with  tv .
rc = Trace( "O" ); rc = Trace( tv )

dlm = Left( parms,1 )
parse var parms  (dlm) zdsn  . (dlm) . (dlm) . (dlm) parmdta
parse var parmdta  origmem  newmem  .
if newmem = "" then do
   say "Syntax error: Must specify a member to be renamed",
           "and the new member name."
   exit
   end                                 /* newmem blank               */

"PDS  '"zdsn"'  RENAME" origmem  newmem

exit                                   /*@ MREN                      */