Re: User Login

["tim.dclinc@xxxxxxxxx" <tim.dclinc@xxxxxxxxx>]

Set desired profile to have a startup program.
CHGUSRPRF USRPRF(USERNAME)   INLPGM(qgpl/STARTup)

in the startup program, check a data area or somethiing to determine if 
logon is allowed
pgm
dcl &logon *char 1
RTVDTAARA DTAARA(QGPL/LOGON (1 1))     RTNVAR(&LOGON)

if (&logon *eq 'N') exec(do)
  ... whatever you want to tell them
enddo



On 06/01/2013 10:14 AM, John Mathew wrote:
>   
> I need to develop a program that should not allow any user  to login into live system during some activity.
> For this program we need to exclude few profiles that is a exception.
>   
> Can some please advise how to develop this.
>   
> John