midrange.com code scratchpad |
Name:
stopallst.clp
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
01/12/2012 08:30:58 pm
|
IP:
Logged
|
|
Description:
The user was to lazy to give a description
|
Code:
- /* Group Dekko Services, LLC */
- /* ALL RIGHTS RESERVED. */
- /* */
- /* This program will ... */
- /* */
- /* */
- /* Modification log: */
- /* mm/dd/yy by R.Berendt, CDP GDS,LLC */
- /* Created */
- /* */
- /* */
- PGM ( +
- &StopOrStrt /* */ +
- )
- DCL &StopOrStrt *CHAR 6 /* *STOP or *START */
- DCL &QshCmd *CHAR 40 /* */
- DCL &KEYVAR *CHAR 4 /* Message key */
- DCL &MSGRPY *CHAR 6 /* Reply to message */
- DCL &NBR *CHAR 6 /* Job Number */
-
- RTVJOBA NBR(&NBR)
-
- DOUNTIL (&StopOrStrt=&NBR)
- Select
- When (&StopOrStrt='*START') Then(DO)
- CHGVAR &QshCmd '/Operations/Sametime/startAllSametime.sh'
- CallSubr MainBody
- EndDo
- When (&StopOrStrt='*STOP') Then(DO)
- CHGVAR &QshCmd '/Operations/Sametime/stopAllSametime.sh'
- CallSubr MainBody
- EndDo
- Otherwise DO
- SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGTYPE(*INQ) TOPGMQ(*EXT) +
- MSGDTA('Must be either *STOP or *START') KEYVAR(&KEYVAR)
- RCVMSG MSGTYPE(*RPY) MSGKEY(&KEYVAR) WAIT(*MAX) MSG(&MSGRPY)
- CHGVAR &StopOrStrt &MSGRPY
- EndDo
- EndSelect
- EndDo
-
- Subr MainBody
-
- ADDENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT) REPLACE(*YES) +
- VALUE('fileappend=/tmp/SametimeWAS/ServerErrorLog.txt')
- ADDENVVAR ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG) REPLACE(*YES) +
- VALUE(Y)
-
- QSH CMD(&QshCmd)
- MONMSG MSGID(QSH0005) EXEC(DO)
- SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGTYPE(*ESCAPE) +
- MSGDTA('Error: Try DSPF /tmp/SametimeWAS/ServerErrorLog.txt')
- ENDDO
-
- CHGVAR &StopOrStrt &Nbr
-
- EndSubr
-
- ENDPGM
|
|
|