Mise en place des droits par AUTL sur une BIB

BoTTom | 
/********************************************************************/
  /* JE RECOIS BIBLIOTHQUE CONCERNÉE ET "AUTL" A APPLIQUER            */
  /********************************************************************/
               PGM        PARM(&BIB &AUTL)
               DCL        VAR(&BIB) TYPE(*CHAR) LEN(10)
               DCL        VAR(&AUTL) TYPE(*CHAR) LEN(10)
   
  /* CREATION */
  /* -------- */
   
               CRTAUTL    AUTL(&AUTL)
               EDTOBJAUT  OBJ(&AUTL) OBJTYPE(*AUTL)
                 /* AFFICHAGE UTILISATEUR, OU BIEN GRTOBJAUT */
   
  /* APPLICATION */
  /* ----------- */
   
  /********************************************************************/
  /* SUR LA BIBLIOTHEQUE ELLE MÊME   (*EXCLUDE ???)                   */
  /********************************************************************/
               GRTOBJAUT  OBJ(&BIB) OBJTYPE(*LIB) USER(*PUBLIC) +
                            AUT(*EXCLUDE) REPLACE(*YES)
  /********************************************************************/
  /* J'ENLEVE TOUS LES DROITS EXISTANTS SUR TOUS LES OBJETS           */
  /*  DANS LA BIBLIOTHEQUE (VERIFIER QUE C'EST POSSIBLE)              */
  /********************************************************************/
               RVKOBJAUT  OBJ(&BIB/*ALL) OBJTYPE(*ALL) USER(*ALL) +
                            AUT(*ALL)
  /********************************************************************/
  /* J'APPLIQUE LA LISTE A LA BIBLIOTHEQUE ET A TOUS SES OBJETS       */
  /********************************************************************/
               GRTOBJAUT  OBJ(&BIB) OBJTYPE(*LIB) AUTL(&AUTL)
               GRTOBJAUT  OBJ(&BIB/*ALL) OBJTYPE(*ALL) AUTL(&AUTL)
  /********************************************************************/
  /* *PUBLIC COMPRIS                                                  */
  /********************************************************************/
               GRTOBJAUT  OBJ(&BIB/*ALL) OBJTYPE(*ALL) USER(*PUBLIC) +
                            AUT(*AUTL) REPLACE(*YES)
  /* L'AVENIR */             CHGLIB     LIB(&BIB) CRTAUT(&AUTL)



               ENDPGM




©AF400