code

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

UPS Preparation 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 failed...                                                      */
  7.                                                                                
  8.             RBASNDMSG  MSG('AS/400 utility power has failed.  +               
  9.                           System is running on UPS and is preparing +           
  10.                           to shut down in 20 minutes...') +                     
  11.                           TOPG(AS400TEAM) RSP(*NO) TRUNCATE(*YES)               
  12.                                                                                
  13. /* 0020 - Start preparing the system for shutdown.  This should include the  */
  14. /*      - holding of job queues, output queues, writers, etc...              */
  15.                                                                                
  16.             CHGDTAARA  DTAARA(UPSSTS) VALUE('*PREPARE')                       
  17.                                                                                
  18. /* 0021 - Hold the job queues.  Note, however, that the standard system job  */
  19. /*      - queues will not be held (with the exception of QBATCH, and also    */
  20. /*      - that the ROBOT job queues must be left active in order for the      */
  21. /*      - pager messages to be broadcast...                                  */
  22.                                                                                
  23.                                                                                
  24.             HLDJOBQ    JOBQ(QBATCH)             
  25.                                                                                  
  26.             HLDJOBQ    JOBQ(QSNADS)            /* SNADS          */         
  27.             HLDJOBQ    JOBQ(QSPL)              /* Spool Writer    */         
  28.                                                                                
  29. /* 0022 - Hold the Laser Writers as soon as the current page has finished    */
  30. /*      - printing...                                                        */
  31.                                                                                
  32.             CALL      PGM(AUKENDLSR)                                         
  33.                                                                                
  34. /* 0023 - Hold the Spool Writers as soon as the current page has finished    */
  35. /*      - printing...                                                        */
  36.                                                                                
  37.             ENDWTR    WTR(HP5IT1)  OPTION(*PAGEEND) 
  38.             ENDWTR    WTR(HP5IT2)  OPTION(*PAGEEND)                         
  39.                                                                      
  40.             ENDWTR    WTR(HP5SI)    OPTION(*PAGEEND) /* Others  */
  41.             ENDWTR    WTR(FAXP)      OPTION(*PAGEEND)             
  42.                                                                      
  43.             ENDPGM                                                 
  44.