/*------------------------------------------------------------------*/
/*    Programmers Group & Management Resource    Copyright  1998    */
/*                                                                  */
/*                             \\\\\\\                              */
/*                            ( o   o )                             */
/*------------------------oOO----(_)----OOo-------------------------*/
/*                                                                  */
/*  System name  . . . :   Technical Support                        */
/*  Command name . . . :   RTVDBSRC                                 */
/*  Text . . . . . . . :   Retrieve Database Source                 */
/*                                                                  */
/*  Author . . . . . . :   Alex Nubla                               */
/*  Description. . . . :   Retrieves the source for an existing     */
/*                         file into a source member.               */
/*                                                                  */
/*                     ooooO              Ooooo                     */
/*                     (    )             (    )                    */
/*----------------------(   )-------------(   )---------------------*/
/*                       (_)               (_)                      */
/*                                                                  */
/*                         Command parameters:                      */
/*                                                                  */
/*                         ALLOW((*ALL)                             */
/*                                                                  */
/*                         CPP: RTVDB1                              */
/*                                                                  */
/*------------------------------------------------------------------*/
             cmd        ('Retrieve Database Source')

/* -------------------------------------------- */
/*  File                                        */
/* -------------------------------------------- */
             parm       file      qfile                         +
                                  min(1)                        +
                                  prompt('File')
                        qfile:                                  +
                        qual      *name          10             +
                                  expr(*yes)
                        qual      *name          10             +
                                  dft(*libl)                    +
                                  spcval(*libl *curlib)         +
                                  expr(*yes)                    +
                                  prompt('Library')

/* -------------------------------------------- */
/*  To source file                              */
/* -------------------------------------------- */
             parm       tosrc     qsrcfile                      +
                                  min(1)                        +
                                  prompt('To source file')
                        qsrcfile:                               +
                        qual      *name          10             +
                                  expr(*yes)
                        qual      *name          10             +
                                  dft(*libl)                    +
                                  spcval(*libl *curlib)         +
                                  expr(*yes)                    +
                                  prompt('Library')

/* -------------------------------------------- */
/*  To member                                   */
/* -------------------------------------------- */
             parm       tombr     *name          10             +
                                  dft(*file)                    +
                                  spcval(*file)                 +
                                  expr(*yes)                    +
                                  prompt('To member')

/* -------------------------------------------- */
/*  Replace member if it exist.                 */
/* -------------------------------------------- */
             parm       mbropt    *char           8             +
                                  rstd(*yes)                    +
                                  dft(*replace)                 +
                                  values(*replace *add)         +
                                  choice('*REPLACE, *ADD')      +
                                  prompt('Replace or add records')


    Source: geocities.com/~alex_nubla