How do you add, remove or change OV/400 users from the command line?
Henrik
ADDDIRE USRID(&OFCUSER SAIRL01) USRD(&USERTEXT) +
USER(&USERNAME)
MONMSG MSGID(CPF0000 CPD0000)
ADDOFCENR USRPRF(&USERNAME) DFTFLR(OFCDFT) +
INLCAL(*NONE) SCHEDCAL(*NONE)
MONMSG MSGID(CPF0000 CPD0000)
CHGVAR &ENROLLED ' '
CALL OVCHK PARM(&NAMEWILLBE &ENROLLED)
IF (&ENROLLED *EQ 'Y') +
THEN(DO)
SNDPGMMSG MSG(&NAMEWILLBE *BCAT 'is enrolled in +
Office.') TOPGMQ(*PRV)
ENDDO
Fiona