code

Name
Astradyne (UK) Ltd
Scriptlanguage
Plain Text
Tabwidth
4
Date
Sun, 12 May 2013 14:30:53 +0000
IP
192.168.0.1

Cleanup routine for UPS Power Management suite. This routine restarts processes after they were closed down by the UPSPWRMGR routine. The routine uses ROBOT/Alert to send an SMS text message to IT personnel.

  1.             PGM                                                               
  2.                                                                                
  3.             MONMSG    MSGID(CPF0000)                                         
  4.                                                                                
  5. /* 0020 - Restart the processes that were disabled due to the power failure  */
  6. /*      - and the system shutdown...                                          */
  7.                                                                                
  8.             CALL      PGM(UPSRESET)                                           
  9.                                                                                
  10. /* 0030 - Start the JDE Sleeper sub-system and scheduler            */         
  11.                                                                                
  12.             CALL      PGM(AUKSTRSLP)                                         
  13.                                                                                
  14. /* 0100 - Allow the users back into the system...                    */         
  15.                                                                                
  16.             LOCKOUT    USRTYP(*NONE)                                           
  17.                                                                                
  18. /* 9999 - Send a page message to ALL AS/400 personnel informing them that the */
  19. /*      - system is now fully operational again...                            */
  20.                                                                                
  21.             RBASNDMSG  MSG('AS/400 now fully available following +             
  22.                           IPL due to power failure...') +                       
  23.                           TOPG(AS400TEAM) RSP(*NO) TRUNCATE(*YES)               
  24.                                                                                
  25.             ENDPGM                                                             
  26.