/********************************************************************/
/* */
/* 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)
Z7B9C?~89