MaConnexion est une Connexion
// Description de la connexion
MaConnexion..Utilisateur = "trsecofr"
MaConnexion..MotDePasse = "trsecofr"
MaConnexion..Serveur = "power8"
MaConnexion..Provider = hAccèsNatifAS400
MaConnexion..InfosEtendues= "<EASYCOM>"+CRLF+"JOBNAME=CED"+CRLF+"</EASYCOM>"
test2 est une ASUsrPrfDetailedCollection
//Retrieve all users
SI PAS ASUserListDetailed(test2,MaConnexion) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
// Retrieve all users
SI PAS ASUserListDetailed(test2,MaConnexion,"*",ASUtilisateursTousStatuts) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
//Retrieve user with the QPGMR name
HOuvreConnexion(MaConnexion);
SI PAS ASUserListDetailed(test2,MaConnexion,"QPGMR") ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
// Retrieve all disabled users
SI PAS ASUserListDetailed(test2,MaConnexion,"*",ASUtilisateursDésactivés) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
// Retrieve all enabled users
SI PAS ASUserListDetailed(test2,MaConnexion,"*",ASUtilisateursActivés) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
// Retrieve all users with name starting with Q*
SI PAS ASUserListDetailed(test2,MaConnexion,"Q*",ASUtilisateursTousStatuts) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
// Retrieve all users within NOGROUP group
SI PAS ASUserListDetailed(test2,MaConnexion,"",ASUtilisateursTousStatuts,"NOGROUP") ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();//procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(test2)
FIN
// Retrieve all users within *SECOFR class
SI PAS ASUserListDetailed(test2,MaConnexion,"",ASUtilisateursTousStatuts,"", "*SECOFR") ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();
TableauSupprimeTout(test2)
FIN
//Retrieve all users with special Authorities
SI PAS ASUserListDetailed(test2,MaConnexion,"",ASUtilisateursTousStatuts,"", "", ASJOBCTL+ASIOSYSCFG) ALORS
Info(ErreurInfo(errComplet))
RETOUR
SINON
DSPUSR();
TableauSupprimeTout(test2)
FIN