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:
  1. /* Group Dekko Services, LLC                                              */
  2. /* ALL RIGHTS RESERVED.                                                   */
  3. /*                                                                        */
  4. /* This program will ...                                                  */
  5. /*                                                                        */
  6. /*                                                                        */
  7. /* Modification log:                                                      */
  8. /* mm/dd/yy by R.Berendt, CDP   GDS,LLC                                   */
  9. /*          Created                                                       */
  10. /*                                                                        */
  11. /*                                                                        */
  12. PGM  (                                                                        +
  13.       &StopOrStrt      /*                                                 */ +
  14.     )
  15. DCL  &StopOrStrt  *CHAR   6  /* *STOP or *START                          */
  16. DCL  &QshCmd      *CHAR  40  /*                                          */
  17. DCL  &KEYVAR      *CHAR   4  /* Message key                      */
  18. DCL  &MSGRPY      *CHAR   6  /* Reply to message                 */
  19. DCL  &NBR         *CHAR   6  /* Job Number                       */
  20.  
  21. RTVJOBA NBR(&NBR)
  22.  
  23. DOUNTIL (&StopOrStrt=&NBR)
  24. Select
  25. When (&StopOrStrt='*START') Then(DO)
  26.   CHGVAR &QshCmd '/Operations/Sametime/startAllSametime.sh'
  27.   CallSubr MainBody
  28.   EndDo
  29. When (&StopOrStrt='*STOP') Then(DO)
  30.   CHGVAR &QshCmd '/Operations/Sametime/stopAllSametime.sh'
  31.   CallSubr MainBody
  32.   EndDo
  33. Otherwise  DO
  34.   SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGTYPE(*INQ) TOPGMQ(*EXT) +
  35.              MSGDTA('Must be either *STOP or *START') KEYVAR(&KEYVAR)
  36.   RCVMSG     MSGTYPE(*RPY) MSGKEY(&KEYVAR) WAIT(*MAX) MSG(&MSGRPY)
  37.   CHGVAR     &StopOrStrt &MSGRPY
  38.   EndDo
  39. EndSelect
  40. EndDo
  41.  
  42. Subr MainBody
  43.  
  44.     ADDENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT) REPLACE(*YES) +
  45.               VALUE('fileappend=/tmp/SametimeWAS/ServerErrorLog.txt')
  46.     ADDENVVAR ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG) REPLACE(*YES) +
  47.               VALUE(Y)
  48.  
  49.     QSH CMD(&QshCmd)
  50.     MONMSG MSGID(QSH0005) EXEC(DO)
  51.        SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGTYPE(*ESCAPE) +
  52.                  MSGDTA('Error:  Try DSPF /tmp/SametimeWAS/ServerErrorLog.txt')
  53.     ENDDO
  54.  
  55.     CHGVAR &StopOrStrt &Nbr
  56.  
  57. EndSubr
  58.  
  59. ENDPGM 
© 2004-2019 by midrange.com generated in 0.008s valid xhtml & css