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

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

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