Re: UPS info

[email@xxxxxxxxxxxxxxxxxxx (James W Kilgore)]

Gary,

On our V3R2 CISC boxes with a Best Fortress UPS we create a separate
message queue to receive UPS and some other messages:  AFAIK, when the
AS/400 receives a signal via this cable a system message is sent.

/* ------------------------------------------------------------------*/ 
   CHKOBJ     OBJ(QSYS/QSYSMSG) OBJTYPE(*MSGQ)                          
   MONMSG     MSGID(CPF9801) EXEC(DO)                                   
                CRTMSGQ    MSGQ(QSYS/QSYSMSG) TEXT('Optional MSGQ to +  
                             receive system messages')                  
                ENDDO                                                   
   CHGMSGQ    MSGQ(QSYSMSG) DLVRY(*BREAK) PGM($BRKPGM)                  
/* ------------------------------------------------------------------*/ 

As you can see program $BRKPGM is assigned to handle messages sent to
this queue.

Parts of this program include:

                   
 /*
------------------------------------------------------------------*/  
      DCL   &MSGF        *CHAR 10  /*  Message file name             
*/  
      DCL   &MSGFLIB     *CHAR 10  /*  Message file library          
*/  
      DCL   &MSGID       *CHAR 7   /*  Message identifier            
*/  
      DCL   &MSGDTA      *CHAR 100 /*  Message data                  
*/  
      DCL   &MSG         *CHAR 132 /*  Message                       
*/  
 /*
------------------------------------------------------------------*/   
 /* Processing loop to receive error messages                        
*/   
 /*
------------------------------------------------------------------*/   
  BGNEXC:   RCVMSG     MSGQ(QSYSMSG) WAIT(*MAX) MSG(&MSG)
+                
                           MSGDTA(&MSGDTA) MSGID(&MSGID)
+                 
                           MSGF(&MSGF)
MSGFLIB(&MSGFLIB)                   
 /* ------------------------------------------------------------------*/
  /* Power outage - Using UPS battery power                           
*/  
    IF (&MSGID *EQ 'CPF1816')
DO                                          
        ENDWTR  *ALL    
OPTION(*PAGEEND)                                 
        ENDSBS  QCMN     OPTION(*CNTRLD)
DELAY(30)                        
        ENDSBS  QSPL     OPTION(*CNTRLD)
DELAY(30)                        
        ENDSBS  QINTER   OPTION(*CNTRLD)
DELAY(90)                        
    
ENDDO                                                                 


HTH,


Gary Munroe wrote:
> 
> On our v3r2 CISC box we have a Powerware Plus 6 UPS
> connected to the AS/400 via a data cable.  We can't find any
> documentation as to how or what it is communicating.  It is plugged
> into a port labeled J14 but would like to know if that is a dedicated
> UPS com port, is UPS notification a built-in OS piece, etc?  We are
> contemplating getting a new UPS.
>
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---