Api : QSYGETPH QWTSETP QSYRLSPH élévation de profil

BrigitteG · Message par **BrigitteG** » mer. 05 mars 2014, 11:49:16

Bonjour,

Devant utiliser les droits d'un utilisateur lors d'un traitement lancé par un autre utilisateur, j'utilise ces trois APIs.

Mon but étant de pouvoir utiliser deux commandes dans des CL. La première (Commande1) pour changer le profil d'exécution et la seconde (Commande2) revenir au profil d'origine.

Commande1 fait :

QSYGETPH --> pour le profil A en cours avec handle1 (Profile handle 12)
QSYGETPH --> pour le profil B avec droit avec handle2 (Profile handle 12)

QWTSETP --> handle2

Commande2 fait :

QWTSETP --> handle1
QSYRLSPH --> handle1
QSYRLSPH --> handle2

CL fait

Code : Tout sélectionner

Call CL parm&#40;B&#41; ---> profil d'élévation

Commande1    B handle1 handle2

Traitement ...

Commande2   handle1 handle2

L'élévation du profil fonctionne et mon traitement se fait bien.

Par contre la remise du profil d'origine ne marche pas, je reste sous profil élevé.

Après recherche, je trouve des exemples. Mais les trois apis sont toujours dans le même programme.

J'ai fait le test suivant :

Code : Tout sélectionner

 PGM   PARM&#40;&SUUSER&#41;                                     
                                   
DCL        VAR&#40;&SUUSER&#41; TYPE&#40;*CHAR&#41; LEN&#40;10&#41;             
DCL        VAR&#40;&HCURUSER&#41; TYPE&#40;*CHAR&#41; LEN&#40;12&#41;           
DCL        VAR&#40;&HSUUSER&#41; TYPE&#40;*CHAR&#41; LEN&#40;12&#41;            

CALL       PGM&#40;QSYS/QSYGETPH&#41; PARM&#40;'*CURRENT' +         
             '*NOPWDCHK' &HCURUSER&#41;                     
                                                        
CALL       PGM&#40;QSYS/QSYGETPH&#41; PARM&#40;&SUUSER '*NOPWDCHK' +
             &HSUUSER&#41;                                  
                                                        
DSPJOB     OPTION&#40;*STSA&#41;                                
                                                        
CALL       PGM&#40;QSYS/QWTSETP&#41; PARM&#40;&HSUUSER&#41;             
                                                        
DSPJOB     OPTION&#40;*STSA&#41;                                
CALL PGM&#40;STRSUGBT&#41;                                
CALL       PGM&#40;QSYS/QWTSETP&#41; PARM&#40;&HCURUSER&#41; 
                                             
DSPJOB     OPTION&#40;*STSA&#41;                     
CALL       PGM&#40;QSYS/QSYRLSPH&#41; PARM&#40;&HCURUSER&#41;
CALL       PGM&#40;QSYS/QSYRLSPH&#41; PARM&#40;&HSUUSER&#41; 
                                             
DSPJOB     OPTION&#40;*STSA&#41;                     
ENDPGM

Je change bien de profil, le traitement s'exécute et je reviens bien au profil d'origine.

Je me pose la question suivante : Est-il possible de séparer l'élévation du profil et le retour au profil d'origine en utilisant des programmes séparés ?

Pouvez-vous m'aider sur ce problème?

Je vous en remercie d'avance.

BrigitteG · Message par **BrigitteG** » mer. 05 mars 2014, 13:12:57

J'ai trouvé une solution.

A priori "le fait de passer les handle en paramètre ne permet pas de se remettre à l'état initial".

Dans la commande2, je fais

Code : Tout sélectionner

RTVJOBA USER et CURUSER   

CALL       PGM&#40;QSYGETPH&#41; PARM&#40;'user' '*NOPWDCHK' +
             &HCURUSER&#41;

CALL       PGM&#40;QWTSETP&#41;  PARM&#40;&HCURUSER&#41;
CALL       PGM&#40;QSYRLSPH&#41; PARM&#40;&HCURUSER&#41;

CALL       PGM&#40;QSYGETPH&#41; PARM&#40;CURUSER '*NOPWDCHK' &HSUUSER&#41;
CALL       PGM&#40;QSYRLSPH&#41; PARM&#40;&HSUUSER&#41;

Au début du cl dans user j'ai le profil d'origine, dans curuser j'ai le profil élevé.
A la fin du cl dans user et curuser j'ai le profil d'origine

cmasse · Message par **cmasse** » mer. 05 mars 2014, 17:49:25

Sinon, je proposait ca :

1er pgm

Code : Tout sélectionner

/* VALIDATION DU  PROFIL ACTUEL */                                     
            CALL QSYGETPH  PARM&#40;'*CURRENT' ' ' &CURCOD&#41;                
            CRTDTAARA  DTAARA&#40;QTEMP/CURCOD&#41; TYPE&#40;*CHAR&#41; LEN&#40;12&#41;        
             MONMSG CPF0000                                            
            CHGDTAARA  DTAARA&#40;QTEMP/CURCOD *ALL&#41; VALUE&#40;&CURCOD&#41;        
/* VALIDATION DU  PROFIL DEMANDÉ */                                    
            CALL QSYGETPH  PARM&#40;&PRF &PWD &PRFCOD &ERRCOD &MDPL &CCSID &#41;
                                                                       
/* CHANGEMENT DE PROFIL */                                             
            CALL QWTSETP  PARM&#40;&PRFCOD&#41;                                
            RETURN

dans le 2eme

Code : Tout sélectionner

             RTVDTAARA  DTAARA&#40;QTEMP/CURCOD *ALL&#41; RTNVAR&#40;&CURCOD&#41;     
 /* RETOUR AU PROFIL D'ORIGINE */                                     
             CALL QWTSETP  PARM&#40;&CURCOD&#41;                              
/* ANNULATION DES VALIDATIONS DE PROFIL */                            
             CALL QSYRLSPH  PARM&#40;&CURCOD&#41;

A priori ça marche !

BrigitteG · Message par **BrigitteG** » jeu. 06 mars 2014, 13:35:56

Merci pour la solution

manae · Message par **manae** » mar. 18 mars 2014, 10:40:41

Bonjour,

solution intéressante dans le cas ou on ne peut pas recompiler les objets
en question.

cordialement

le forum IBM i