Filter
Top Products
/********************************************************************/
/* */
/* A sample program that illustrates how a source part could */
/* be changed when using an editor other than SEU. The project, */
/* group, type, and part names are passed to the program. The */
/* program issues the CHKOUTPART command, calls an editor (SEU is */
/* used as an example), and then issues the CHKINPART command. */
/* */
/********************************************************************/
PGM PARM(&PRJ &GRP &TYP &PART)
/********************************************************************/
/* */
/* The following variables are the parameters passed to this */
/* program. The variables resolve to the name of the project, */
/* group, type, and part. */
/* */
/********************************************************************/
DCL VAR(&PRJ) TYPE(*CHAR) LEN(32)
DCL VAR(&GRP) TYPE(*CHAR) LEN(32)
DCL VAR(&TYP) TYPE(*CHAR) LEN(10)
DCL VAR(&PART) TYPE(*CHAR) LEN(10)
/********************************************************************/
/* */
/* The following variables receive the information returned from */
/* the RTVPARTINF command. */
/* */
/********************************************************************/
DCL VAR(&OBJ) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&TYPE) TYPE(*CHAR) LEN(10)
DCL VAR(&MBR) TYPE(*CHAR) LEN(10)
/********************************************************************/
/* */
/* The part is checked out to the user running this program. */
/* Any messages from the Application Development Manager */
/* product are monitored. The part must be checked out so that */
/* it remains under the control of the Application Development */
/* Manager feature. */
/* */
/********************************************************************/
CHKOUTPART PRJ(&PRJ) GRP(&GRP) TYPE(&TYP) PART(&PART)
MONMSG MSGID(ADM0000)
<
31.
9C
RTVPARTINF
|nDy>
CL
Lr
EDITPART (1/2)
88 &CLr*"\mwC'8O