/*------------------------------------------------------------------*/
/*    Programmers Group & Management Resource    Copyright  1997    */
/*                                                                  */
/*                             \\\\\\\                              */
/*                            ( o   o )                             */
/*------------------------oOO----(_)----OOo-------------------------*/
/*                                                                  */
/*  System name  . . . :   PGMR Tool                                */
/*  Program name . . . :   UPDRPGSRC                                */
/*  Text . . . . . . . :   Update RPG ILE Source                    */
/*                                                                  */
/*  Author . . . . . . :   Alexander Nubla                          */
/*  Creation date. . . :   11/25/97                                 */
/*  Description. . . . :   This command updates the current RPG ILE */
/*                         source to a more structured source.      */
/*                                                                  */
/*                         Command parameters:                      */
/*                                                                  */
/*                         ALLOW((*ALL)                             */
/*                                                                  */
/*                         CPP: UPDRPG1                             */
/*                                                                  */
/*                     ooooO              Ooooo                     */
/*                     (    )             (    )                    */
/*----------------------(   )-------------(   )---------------------*/
/*                       (_)               (_)                      */
/*                                                                  */
/*------------------------------------------------------------------*/
             cmd        ('Update RPG ILE Source')

/* -------------------------------------------- */
/*  Source file                                 */
/* -------------------------------------------- */
             parm       srcfile   qual1                         +
                                  prompt('Source file')
 qual1:      qual                 *name          10             +
                                  dft(QRPGLESRC)                +
                                  spcval(QRPGLESRC)
             qual                 *name          10             +
                                  dft(*LIBL)                    +
                                  spcval(*LIBL)                 +
                                  prompt('Library')

/* -------------------------------------------- */
/*  Member name for source file                 */
/* -------------------------------------------- */
             parm       srcmbr    *name          10             +
                                  dft(*all)                     +
                                  spcval(*all)                  +
                                  prompt('Source member')

/* -------------------------------------------- */
/*  Source sequence option                      */
/* -------------------------------------------- */
             parm       srcseq    *char          7              +
                                  dft(*update)                  +
                                  spcval(*update *leave)        +
                                  prompt('Source sequence option')

/* -------------------------------------------- */
/*  Increment updated source                    */
/* -------------------------------------------- */
             parm       incseq    *dec          (3  2)          +
                                  rstd(*yes)                    +
                                  dft(1.00)                     +
                                  values(0.01 0.10 1.00)        +
                                  choice('0.01, 0.10, 1.00')    +
                                  prompt('Increment sequence number')
