PGM        PARM(&PRF &MDP &ADP &RQS)
             DCL        VAR(&PRF) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MDP) TYPE(*CHAR) LEN(512)
             DCL        VAR(&ADP) TYPE(*CHAR) LEN(4)
             DCL        VAR(&RQS) TYPE(*CHAR) LEN(50)
             DCL        VAR(&CURPRF) TYPE(*CHAR) LEN(10)
             DCL        VAR(&GRPPRF) TYPE(*CHAR) LEN(10)
             RTVUSRPRF  RTNUSRPRF(&CURPRF) GRPPRF(&GRPPRF)
             IF ((&CURPRF *NE 'QSECOFR') & (&GRPPRF *NE 'QSECOFR')) +
                THEN(DO)
                IF (&MDP *EQ '*NOPWD') THEN(DO)
                 SNDPGMMSG  MSGID(CPD0006) MSGF(QCPFMSG) MSGDTA('    Mot +
                              de passe obligatoire') MSGTYPE(*DIAG)
                 GOTO ERREUR
                ENDDO
             ENDDO
             CHKOBJ     OBJ(QSYS/&PRF) OBJTYPE(*USRPRF) AUT(*USE)
             MONMSG CPF9802 EXEC(DO)
             SNDPGMMSG  MSGID(CPD0006) MSGF(QCPFMSG) MSGDTA('    Non +
                          autorisé à utiliser ce profil') +
                          MSGTYPE(*DIAG)
                 GOTO ERREUR
             ENDDO
             MONMSG CPF9800 EXEC(DO)
             SNDPGMMSG  MSGID(CPD0006) MSGF(QCPFMSG) MSGDTA('    +
                          Profil non trouvé ou non utilisable') +
                          MSGTYPE(*DIAG)
                 GOTO ERREUR
             ENDDO
             RETURN
 ERREUR:     SNDPGMMSG  MSGID(CPF0002) MSGF(QCPFMSG) MSGTYPE(*ESCAPE)
             ENDPGM