Voici un programme qui permet en utilisant une API de transfert de profil, de tester le mot de passe d'un profil autre que celui en cours par la commande CHKPWD.

Ici on teste les mots de passe identiques au profil !  

PGM  PARM(&PRF &RET)

/*-------------------------------------------------------------------*/

/* ATTENTION ENLEVE 1 AU COMPTEUR DE UTILISATEURS                    */

/*-------------------------------------------------------------------*/

             DCL        VAR(&PRF ) TYPE(*CHAR) LEN(10)

             DCL        VAR(&RET) TYPE(*CHAR) LEN(1)

/* */

             DCL        VAR(&PRFCOD) TYPE(*CHAR) LEN(12)

             DCL        VAR(&MDPL) TYPE(*INT) VALUE(32)

             DCL        VAR(&ERRCOD) TYPE(*CHAR) LEN(15) +

                          VALUE(X'00000000')

             DCL        VAR(&CCSID) TYPE(*INT) VALUE(-1)

/* INITIALISATION OUI */

             CHGVAR &RET 'O'

    CALL QSYGETPH  PARM(&PRF &PRF &PRFCOD &ERRCOD &MDPL &CCSID)

             MONMSG     MSGID(CPF22E2) EXEC(DO)

             CHGVAR &RET 'N'

             ENDDO

               ENDPGM