code

Name
Astradyne (UK) Ltd
Scriptlanguage
Plain Text
Tabwidth
4
Date
Mon, 05 Feb 2007 00:31:05 +0000
IP
192.168.0.34

Cleanup routine for UPS Power Management suite. This routine restarts processes after they were closed down by the UPSPWRMGR routine.

  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.