code

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

Reset routine for UPS Power Management suite. This routine prepares the UPS Power Management process for use.

  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.