Re: AS400 profile API

Simple CL example:

Switches profile to new 'NEWUSER'

PGM        PARM(&VALID)

/* DEFINE INCOMING PARAMETERS */

CHGVAR     VAR(&VALID) VALUE('Y')
CHGVAR     VAR(&USERID) VALUE('NEWUSER')

CALL       PGM(QSYGETPH) PARM(&USERID *NOPWD &PH)
 MONMSG     MSGID(CPF0000) EXEC(CHGVAR VAR(&VALID) +
            VALUE('N'))

IF         COND(VALID *EQ 'Y') THEN(DO)
   CALL      PGM(QWTSETP) PARM(&PH)
   MONMSG     MSGID(CPF0000)
ENDDO

* END OF PROGRAM */

END:        ENDPGM

Pete Helgren
Value Added Software, Inc.

DRootes@xxxxxxxx wrote:

Hi,

I'm trying to get either the QSYGETPH API or the QsyGetProfileHandle API to work and not having much luck. No matter what I send to them I get back a null value. I've tried using CL and RPG but am having no real luck. Does anyone have any examples from their own usage? I've looked at the security API manual but other than listing the parms, it's not much help.

Thanks,

Dennis