PGM PARM(&FULLOBJ &OBJTYPE &NEWOWN)
 /* DECLARATION DES PARAMETRES RECUS */
DCL &FULLOBJ *CHAR 20
DCL &OBJTYPE *CHAR 10
DCL &RESTE   *CHAR 20
DCL &NEWOWN  *CHAR 10
 /* DECLARATION DES ZONES DE TRAVAIL*/
DCL &OBJ *CHAR 10
DCL &LIB *CHAR 10
CHGVAR     VAR(&LIB) VALUE(%SST(&FULLOBJ 11 10))
CHGVAR     VAR(&OBJ) VALUE(%SST(&FULLOBJ 01 10))
CHKOBJ     OBJ(&LIB/&OBJ) OBJTYPE(&OBJTYPE)
MONMSG     MSGID(CPF9800) EXEC(DO)
  SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG)                            +
  MSGDTA('Objet' *bcat &obj *bcat                                    +
         'inexistant dans la bibliothèque' *bcat &lib)               +
  MSGTYPE(*ESCAPE)
ENDDO
CHGOBJOWN  OBJ(&LIB/&OBJ) OBJTYPE(&OBJTYPE) +
             NEWOWN(&NEWOWN)
ENDPGM