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





Return to Archive home page | Return to MIDRANGE.COM home page