Stop iSeries EBI Server via SBMSTPVNC SBMSSPAPS SBMSTPAPS
Below is an iSeries CLP that will stop the EBI 2.6 (and earlier) server.
This CLP should be executed by the default EBI user that is created during the install.
In our case, we used USRPRF: EBIOWNER.
ADDLIBLE LIB(EBIUTIL)
MONMSG MSGID(CPF0000)
/* Comment: Stop VNC 1-9 */
SBMSTPVNC DISPLAY(1)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(2)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(3)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(4)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(5)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(6)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(7)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(8)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
SBMSTPVNC DISPLAY(9)
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(10)
/* Comment: Places the EBI Server into Suspend Mode */
SBMSSPAPS
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
DLYJOB DLY(60)
/* Comment: Stops the EBI Server */
SBMSTPAPS
MONMSG MSGID(CPF0000) EXEC(RCVMSG MSGTYPE(*EXCP) +
RMV(*YES))
ENDPGM
By: Sean Hoppe on
