AS/400 HELP    

                                          "Emsg" 

                Send an E-MAIL of Messages in QSYSMSG Message queue

                    

 

                

 

  

Message Queue  QSYSMSG  is used to handle potentially severe system messages.

Emsg   Monitors all incoming messages to this msgq and sends an email to up to 10 e-mail addresses (or pagers).  Emsg was developed at V5R2

 

 

 

NOTE:  if QSYSMSG msgq is not on your AS/400 you will need to create it.  Check first with your system administrator. (Goggle it see what it does.)

NOTE:  MSGW status for Emsg actually means it is WAITING for messages.

NOTE:     Your AS/400 must be configured to send e-mail.  We use Microsoft’s Exchange  with mail forwarding turned on.

 

Download emsglib.savf

PC INSTRUCTIONS:

Download "EMSG” to your PC.

Go to a DOS session and enter the following;

FTP SYSTEM                                        (system = your AS/400’s name or IP address)

Enter a valid user id and password

CD QGPL

LCD C:\DIRECTORY (directory= the directory on your pc where you downloaded “ emsg.savf”

QUOTE    SITE     NAMEFMT   1

BIN

PUT       EMSGLIB.SAVF

QUOTE   RCMD   RSTLIB   SAVLIB(EMSG)   DEV(*SAVF)   SAVF(QGPL/EMSGLIB)

 Note:  If there is a security problem restoring all objects with the command above,  sign on to your as/400 as Qsecofr and run RSTLIB  from the command line.

 

AS/400 INSTRUCTIONS:

INSTALL SECTION;  (1 time only after library EMSG is restored to the As/400)

ADDJOBQE SBSD(QSYS/QINTER) JOBQ(EMSG/EMSG) MAXACT(1) SEQNBR(NNN)

NNN = a unique sequence number. Use the command:

DSPSBSD SBSD(QSYS/QINTER)  and take option 6.  Use a Seq Nbr not already allocated.

 

To run ; 

 

To start the Monitor,,,

ADDLIBLE  EMSG

CALL STARTEMSG     (do a WRKACTJOB and verify EMSG is working in QINTER)

NOTE: Any E-mail message(s) will come from the ID signed onto this session.

 

 

To stop the Monitor,,,

SNDMSG MSG(STOPEMSG) TOMSGQ(QSYSMSG)       (uppercase STOPEMSG)

 

 

To enter / maintain e-mail adresses,,,

STRDFU OPTION(5)  FILE(EMSG/EMSG)   (roll up to see  EMAIL01 to EMAIL10)

NOTE: Emsg    uses one record (the first) from file EMSG to get the e-mail addresses.