/*------------------------------------------------------------------*/
/*    Programmers Group & Management Resource    Copyright  1997    */
/*                                                                  */
/*                             \\\\\\\                              */
/*                            ( o   o )                             */
/*------------------------oOO----(_)----OOo-------------------------*/
/*                                                                  */
/*  System name  . . . :   PGMR Tool                                */
/*  Program name . . . :   MOVM                                     */
/*  Text . . . . . . . :   Move member                              */
/*                                                                  */
/*  Author . . . . . . :   Alexander Nubla                          */
/*  Creation date. . . :   11/25/97                                 */
/*  Description. . . . :   This command moves a member from one     */
/*                         source to a member in another source     */
/*                         file.  REPLACE(*YES) is allowed if       */
/*                         to member already exist.                 */
/*                                                                  */
/*                         Command parameters:                      */
/*                                                                  */
/*                         ALLOW((*ALL))                            */
/*                                                                  */
/*                         CPP: MOVMC                               */
/*                                                                  */
/*                     ooooO              Ooooo                     */
/*                     (    )             (    )                    */
/*----------------------(   )-------------(   )---------------------*/
/*                       (_)               (_)                      */
/*                                                                  */
/*------------------------------------------------------------------*/
             cmd        ('Move Member')

/* -------------------------------------------- */
/*  From file                                   */
/* -------------------------------------------- */
             parm       fromfile  qualffile                     +
                                  min(1)                        +
                                  prompt('From file name')

                        qualffile:                              +
                        qual      *name          10             +
                                  expr(*yes)
                        qual      *name          10             +
                                  dft(*libl)                    +
                                  spcval(*libl)                 +
                                  expr(*yes)                    +
                                  prompt('Library')
/* -------------------------------------------- */
/*  To file                                     */
/* -------------------------------------------- */
             parm       tofile    qualtfile                     +
                                  min(1)                        +
                                  prompt('To file name')

                        qualtfile:                              +
                        qual      *name          10             +
                                  expr(*yes)
                        qual      *name          10             +
                                  dft(*libl)                    +
                                  spcval(*libl)                 +
                                  expr(*yes)                    +
                                  prompt('Library')
/* -------------------------------------------- */
/*  From member name                            */
/* -------------------------------------------- */
             parm       frommbr   *name          10             +
                                  min(1)                        +
                                  expr(*yes)                    +
                                  prompt('From member name')
/* -------------------------------------------- */
/*  To member name                              */
/* -------------------------------------------- */
             parm       tombr     *name          10             +
                                  dft(*frommbr)                 +
                                  expr(*yes)                    +
                                  spcval(*frommbr)              +
                                  prompt('To member name')
/* -------------------------------------------- */
/*  Replace option                              */
/* -------------------------------------------- */
             parm       replace   *char          4              +
                                  dft(*no)                      +
                                  values(*yes *no)              +
                                  rstd(*yes)                    +
                                  prompt('Replace if TOMBR exist')
