code

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

Reset routine for UPS Power Management suite. This routine resets the UPS Power Management process once power has been restored.

  1.             PGM                                                               
  2.                                                                                
  3.             MONMSG    MSGID(CPF0000)                                         
  4.                                                                                
  5. /* 0010 - Send a page message to ALL AS/400 personnel warning that the power  */
  6. /*      - has been restored without the need for an IPL...                    */
  7.                                                                                
  8.             RBASNDMSG  MSG('AS/400 utility power has been +                   
  9.                           restored.  System is no longer running +             
  10.                           under UPS...') TOPG(AS400TEAM) RSP(*NO) +             
  11.                           TRUNCATE(*YES)                                       
  12.                                                                                
  13. /* 0020 - Restart the processes that were temporarily disabled previously...  */
  14.                                                                                
  15.             CHGDTAARA  DTAARA(UPSSTS) VALUE('*NORMAL')                         
  16.                                                                                
  17. /* 0021 - Start the job queues that were held by the UPSPREPARE routine...    */
  18.                                                                                
  19.             RLSJOBQ    JOBQ(QBATCH)                     
  20.             RLSJOBQ    JOBQ(QDFTJOBD)          /* Others          */         
  21.             RLSJOBQ    JOBQ(SLEEPER)            /* JDE Scheduler  */         
  22.                                                                              
  23.             RLSJOBQ    JOBQ(QSNADS)            /* SNADS          */         
  24.             RLSJOBQ    JOBQ(QSPL)              /* Spool Writer    */         
  25.                                                                                
  26. /* 0022 - Restart all Laser Writers...                                        */
  27.                                                                                
  28.             CALL      PGM(AUKSTRLSR)                                         
  29.                                                                                
  30. /* 0023 - Restart all of the spool writers that were previously stopped...    */
  31.                                                                                
  32.             CHGOUTQ    OUTQ(HP5IT1)                                         
  33.             CHGOUTQ    OUTQ(HP5IT2)                                         
  34.             CHGOUTQ    OUTQ(HP5SI)                                             
  35.             CHGOUTQ    OUTQ(FAXP)                                             
  36.                                                                                
  37.             ENDPGM                                                           
  38.