IBM SB84-0449-00 manual Rtvpartinf nDy CL Lr Editpart 2/2

/********************************************************************/

/*	*/
/* The RTVPARTINF command retrieves the information	*/
/* necessary to edit the part.	*/
/*	*/

/********************************************************************/ RTVPARTINF PRJ(&PRJ) GRP(&GRP) TYPE(&TYP) PART(&PART) +

OBJLIB(&LIB) OBJ(&OBJ) OBJTYPE(&TYPE) + MBR(&MBR)

MONMSG MSGID(ADM0000) /********************************************************************/

/**/

/* The editor that is			being used	can now be called. In	this example */
/*	it	is assumed that	the editor	can be started from a	command.	*/
/*	In	any case, the library name		is contained in &LIB,	the */

/* source file name is contained in	&OBJ, and the	*/
/* part name is contained in &MBR.	The line below would be		*/
/* replaced with the actual call to	the editor.		*/
/*			*/

/********************************************************************/

STRSEU	SRCFILE(&LIB/&OBJ) SRCMBR(&MBR) OPTION(2)
MONMSG	MSGID(CPF0000)

/********************************************************************/

/*		*/
/* When the editor is ended, the part must be checked in. This		*/
/* informs the Application Development Manager	feature that	*/
/* the part has been changed.		*/
/*		*/

/********************************************************************/ CHKINPART PRJ(&PRJ) GRP(&GRP) TYPE(&TYP) PART(&PART)

MONMSG MSGID(ADM0000)

ENDPGM

<31. 9C RTVPARTINF nDy> CL Lr EDITPART (2/2)

Z7B 9C?~ 89