/*------------------------------------------------------------------*/
/* 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')