AS/400 HELP    

                                          "Qmsg" 

Send an E-MAIL of Selected Messages in QSYSOPR Message queue

                    

                  

Qmsg   Monitors all incoming messages to QSYSOPR and sends an email (if the message id is one of 50 selected) to up to 10 e-mail addresses (or pagers).  Qmsg was developed at V5R2.

Qmsg  Like Emsg  runs a CL  program with the RCVMSG command to look at all incoming messages.

 

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

 

Download qmsglib.savf

PC INSTRUCTIONS:

Download "QMSG” 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 “ Qmsg.savf”

QUOTE    SITE     NAMEFMT   1

BIN

PUT       QMSGLIB.SAVF

QUOTE   RCMD   RSTLIB   SAVLIB(QMSG)   DEV(*SAVF)   SAVF(QGPL/QMSGLIB)

 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 QMSG is restored to the As/400)

ADDJOBQE SBSD(QSYS/QINTER) JOBQ(QMSG/QMSG) 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 ;  (QSYSOPR MESSAGE QUEUE MUST NOT BE  ALLOCATED TO ANOTHER JOB/USER)       

 

To start the Monitor,,,

ADDLIBLE  QMSG

CALL STARTQMSG     (do a WRKACTJOB and verify QMSG 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(STOPQMSG) TOMSGQ(QSYSOPR)       (uppercase STOPQMSG)

 

 

To enter / maintain e-mail addresses,,,

STRDFU OPTION(5)  FILE(QMSG/QMSGEMAIL)  

Enter  e-mail address(es). 

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

 

To enter / maintain  messages to capture,,,

STRDFU OPTION(5)  FILE(QMSG/QMSGID)   

Enter an AS/400 message Id  in the form of CPXXXXX  (7 characters)

NOTE: Qmsg    uses one record (the first) from file QMSGID to get messages to process.

 

NOTE:   You must stop and restart QMSG to recognize any changes made to QMSGID.

NOTE:   Date and time on the e-mail message description is a time stamp applied by QMSG. The actual Date and time is available in the e-mail message itself. (see  last line of e-mail message 3rd  sentence from left)