Re: AS400 profile API

[Pete Helgren <Pete@xxxxxxxxxx>]

Simple CL example:

Switches profile to new 'NEWUSER'

PGM        PARM(&VALID)

/* DEFINE INCOMING PARAMETERS */

DCL        VAR(&USERID) TYPE(*CHAR) LEN(10)
DCL        VAR(&PH) TYPE(*CHAR) LEN(12)
DCL        VAR(&VALID) TYPE(*CHAR) LEN(1)         

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
>