| Comment changer de profil en cours de session ? |
|
Une petite astuce sympa pour changer de profil en cours de session. Très intéressant pour générer des spools. Avec un profil *, secofr peut s'utiliser sans mot de passe. Attention ! pour le retour, vous devez être autorisé au profil. PGM PARM(&PRF &PWD) /* changement de session */ CALL QSYGETPH (&PRF &PWD &HAN &ERR) IF (%BIN(&ERR 5 4) *NE 0) THEN(DO) /* Retour à la session de départ ici en cas d'erreur */ CALL QWTSETP PARM(&HAN &ERR) ENDDO ENDPGM PLB
|