RE: Auto Replying To Message AMX0213

Thanks to everyone who responded.  I now have a working program that
automatically responds to this MAPICS message.  The only downside is
that if the QSYSOPR message queue is in break mode the program can't
retrieve the messages.  I have attached the working source code incase
anyone else would like to use it.

Basically each time the program executes it retrieves all INQ messages
from the QSYSOPR message queue and if it is AMX0213 it replies to that
message with a 2.  After it has checked each INQ message the program
ends.
 
PGM                                                                 
             DCL        VAR(&KEY) TYPE(*CHAR) LEN(4)                
             DCL        VAR(&ID) TYPE(*CHAR) LEN(7)                 
                                                                        
 LOOP:       CHGVAR     VAR(&ID) VALUE(' ')                         
             RCVMSG     MSGQ(QSYSOPR) MSGTYPE(*INQ) WAIT(30) +      
                          RMV(*NO) KEYVAR(&KEY) MSGID(&ID)
             MONMSG     MSGID(CPF2451)                              
                                                                    
             IF         COND(&ID *EQ ' ') THEN(GOTO CMDLBL(EOJ))    
             IF         COND(&ID *EQ 'AMX0213') THEN(SNDRPY +       
                          MSGKEY(&KEY) MSGQ(QSYSOPR) RPY('2') +     
                          RMV(*NO))                                 
                                                                    
             GOTO       CMDLBL(LOOP)                                
 EOJ:        ENDPGM                                                   

Thanks again
Doug


-----Original Message-----
From: mapics-l-bounces@xxxxxxxxxxxx
[mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of Dave Shaw
Sent: Wednesday, October 06, 2004 2:15 PM
To: mapics-l@xxxxxxxxxxxx
Subject: RE: Auto Replying To Message AMX0213

In a word - no.  MAPICS doesn't send messages to QSYSOPR by message ID,
unless they've changed it recently. They retrieve the first-level text
for the message from the message file and send that as a text message to
the queue, then send a second text message requesting the reply.  The
only successful way I've ever seen to auto-respond to MAPICS messages in
QSYSOPR is to have a program that 'reads' each message from the queue
and then replies appropriately. They chose this approach when they
ported MAPICS I to the S/38 25 years ago and have never changed it.
It's frustrated me more than once.

Dave Shaw

----- Original Message ----- 
From: <sjones@xxxxxxxxxxxxxx>
To: "MAPICS ERP System Discussion" <mapics-l@xxxxxxxxxxxx>
Sent: Wednesday, October 06, 2004 12:32 PM
Subject: RE: Auto Replying To Message AMX0213


> 
> 
> 
> 
> I know you can add an automatic reply to messages that are generated
by
> OS/400, could you setup this message to do the same?
> 
> Steve Jones
> 
> 
>

>              <kdfox@xxxxxxxxxx

>              com>

>              Sent by:
To 
>              mapics-l-bounces@         "'MAPICS ERP System
Discussion'"    
>              midrange.com              <mapics-l@xxxxxxxxxxxx>

>
cc 
>

>              10/06/2004 12:28
Fax to 
>              PM

>
Subject 
>                                        RE: Auto Replying To Message

>              Please respond to         AMX0213

>              MAPICS ERP System

>                 Discussion

>              <mapics-l@midrang

>                   e.com>

>

>

> 
> 
> 
> 
> Doug,
> 
> A few of options.
> 
> 
> 1. If you have client access/operations management.  You can create a
> message monitor to automatically respond to the message.
> 2. You can acquire a third party tool such as Robot.
> 3. You can write your own system monitor program.  Tough, unless your
used
> to passing parameters into and out of the system level messages.
> 4. Change your job queue defaults to eliminate unnecessary conflicts.
> 
> 
> I would caution you.  There are very good reasons why MAPICS provides
the
> conflict messages.  If you by bypass them automatically, you have a
> substantial chance of corrupting your database.  If you're going to do
> this,
> I'd suggest you have good, tested backup processes in place.
> 
> Kevin Fox
> kdfox@xxxxxxxxxxxxx
> 
> -----Original Message-----
> From: Morrison, Doug [mailto:dmorrison@xxxxxxxxxxxxxx]
> Sent: Wednesday, October 06, 2004 8:53 AM
> To: MAPICS-L@xxxxxxxxxxxx
> Subject: Auto Replying To Message AMX0213
> 
> This question is really more AS/400 related than MAPICS related but I
> thought I would try here.  We are running MAPICS XAR6 on and AS/400
> several times a weeks we get message AMX0213-(MM) E AM-0213 JOB
> AMC0824313 HAS CONFLICTS (1,2), sent to the QSYSOPR message queue
> because someone is trying to do a cost roll while someone else is in
> item master maintenance.  Almost always the conflict is only temporary
> and we respond to the message with a 2.
> 
> 
> 
> We don't have a dedicated computer operator that monitors for these
> types of messages.  Instead we have a program the monitor the QSYSOPR
> message queue and when it finds a message the needs a reply it pages
one
> of the programmers.   We would like to modify this program so that if
it
> finds this message to automatically respond to it with a 2 instead of
> paging the programmer.  I have made a few different attempts at doing
> this but can't seem to get it to work.  Has anyone done this or have
any
> samples of how to programmatically respond to an inquiry message in a
> message queue.


_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
To post a message email: MAPICS-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mapics-l.