Discussion :

[amirad]

Bonjour,
Comment peut on interdire l'accès aux données ODBC pour certains profils AS400?

[K2R400]

Soit via iSeries Navigator en clic droit sur le nom du système puis administration d'applications, soit avec la commande WRKFCNUSG, ou encore à travers les programmes d'exit WRKREGINF.
m'enfin vaut mieux mettre de la sécurité sur les Tables !

[Mercure]

Pour filtrer l'accés par ODBC à certains utilisateurs, perso, je resterais dans les standards de la vieille école en écrivant un programme que j'accrocherais au point d'exit QIBM_QZDA_INIT de la machine avec la commande WRKREGINF.
Le programme CL d'Alex Nubla, qui se trouve dans le domaine public à cette adresse, nous montre justement comment filtrer les utilisateurs qui peuvent accéder à l'ODBC en rejetant les profils qui ne sont pas autorisés à l'utilisation de la liste d'autorisation appelée "ODBC" dans son exemple. Je n'ai toutefois pas testé son programme.

Marche à suivre :

Créer d'abord la liste d'autorisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CRTAUTL AUTL(ODBC) TEXT('Liste d''autorisations ODBC')

puis associer cette liste aux profils autorisés à utiliser cette liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ADDAUTLE AUTL(ODBC) USER(MYUser) AUT(*USE)

Attacher en final le programme au point d'exit QIBM_QZDA_INIT avec la commande WRKREGINF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WRKREGINF EXITPNT(QIBM_QZDA_INIT)