/*------------------------------------------------------------------*/
/* Programmers Group & Management Resource Copyright 1998 */
/* */
/* \\\\\\\ */
/* ( o o ) */
/*------------------------oOO----(_)----OOo-------------------------*/
/* */
/* System name . . . : Programmer Tool */
/* Program name . . . : CRTRTVDB */
/* Text . . . . . . . : Create RTVDBSRC */
/* */
/* Author . . . . . . : Alexander Nubla */
/* Description. . . . : Program to create RTVDBSRC utility */
/* */
/* Move the following member to the &Srclib */
/* 1. RTVDBSRC QCMDSRC */
/* 2. RTVDB1 QCLLESRC */
/* 3. RTVDB2 QRPGLESRC */
/* */
/* ooooO Ooooo */
/* ( ) ( ) */
/*----------------------( )-------------( )---------------------*/
/* (_) (_) */
/* */
/* Modification Log: */
/* */
/* Date Task Programmer/Description */
/* -------- ----- ------------------------------------------------ */
/* 05/30/97 Alex Nubla */
/* Created */
/* */
/********************************************************************/
pgm (&Objlib /* Object library */ +
&Srclib ) /* Source library */
/*--------------------------------------------------------*/
/* declaration */
/*--------------------------------------------------------*/
dcl &Objlib *char 10
dcl &Srclib *char 10
crtclmod module(&Objlib/RTVDB1) +
srcfile(&Srclib/QCLLESRC)
crtrpgmod module(&Objlib/RTVDB2) +
srcfile(&Srclib/QRPGLESRC)
crtpgm pgm(&Objlib/RTVDB1) +
module(&Objlib/RTVDB1 &Objlib/RTVDB2)
crtcmd cmd(&Objlib/RTVDBSRC) +
srcfile(&Srclib/QCMDSRC) +
pgm(RTVDB1)
EndPgm