Essai sur PMTOVRPGM PGM de substitution d'invite

BoTTom | 
PGM PARM(&CMD &FULLOBJ &OBJTYPE &RESTE)
 /* DECLARATION DES PARAMETRES RECUS */
  DCL &CMD     *CHAR 10  /*  NOM DE LA COMMANDE                      */
  DCL &FULLOBJ *CHAR 20  /*  NOM QUALIFIE OBJET                      */
  DCL &OBJTYPE *CHAR 10  /*  TYPE DE L'OBJET                         */
  DCL &RESTE   *CHAR 20  /*  VARIABLE DE RETOURS                     */
 /* DECLARATION DES ZONES DE TRAVAIL                                 */
  DCL &BIN     *CHAR 02  X'0014' /* ZONE BIN 12    LONGUEUR A PASSEE */
  DCL &OBJ *CHAR 10      /*  OBJET                                   */
  DCL &LIB *CHAR 10      /*  BIBLIOTHEQUE                            */
  DCL &OWN *CHAR 10      /*  PROPRIETAIRE ACTUEL                     */
             CHGVAR     VAR(&LIB) VALUE(%SST(&FULLOBJ 11 10))
             CHGVAR     VAR(&OBJ) VALUE(%SST(&FULLOBJ 01 10))
             RTVOBJD    OBJ(&LIB/&OBJ) OBJTYPE(&OBJTYPE) OWNER(&OWN)
MONMSG     MSGID(CPF0000) EXEC(DO)
CHGVAR &OWN 'ERREUR'
ENDDO
 /* FORMATAGE DU RESTE                                           */
 /*        1   A   02   LONGUEUR A TRANSMETTRE EN BINAIRE        */
 /*     02+1   A   N    VARIABLE A TRANSMETTRE                   */
 /*                     NOMPARM(&VAR)                            */
 /*  NOM DU PARAMETRE -----*      *-- VARIABLE POUR RENSEIGNER   */
             CHGVAR     VAR(%SST(&RESTE  01 02))  VALUE(&BIN)
             CHGVAR     VAR(%SST(&RESTE  03 07))  VALUE('NEWOWN(')
             CHGVAR     VAR(%SST(&RESTE  11 10))  VALUE(&OWN)
             CHGVAR     VAR(%SST(&RESTE  20 01))  VALUE(')')
ENDPGM




©AF400