RE: TFRJOB quirk

[Neil Palmer <npalmer@xxxxxxxxxxx>]

Well, to avoid the "message queue allocated to anothe job" stuff, try
something like this in the initial program:

  DLCOBJ     OBJ((message_queue_name *MSGQ *EXCL)) 



Neil Palmer                                AS/400~~~~~      
NxTrend Technology - Canada   ____________          ___  ~     
Thornhill, Ontario,  Canada   |OOOOOOOOOO| ________  o|__||=   
Phone: (905) 731-9000  x238   |__________|_|______|_|______)   
Cell.: (416) 565-1682  x238    oo      oo   oo  oo   OOOo=o\   
Fax:   (905) 731-9202       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
mailto:NPalmer@NxTrend.com    AS/400  The Ultimate Business Server      
http://www.NxTrend.com

> -----Original Message-----
> From: John Cirocco [SMTP:JCirocco@gw.ctg.com]
> Sent: Monday, July 20, 1998 3:45 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      TFRJOB quirk
> 
> Hello all, 
> 
> I remember we had a conversation regarding routing users to seperate
> subsystems a little while back.  After setting it up I now have a new
> problem.  For all users who start multiple sessions they receive a
> series
> of message when they log the second session on that they assume to
> be errors.  Now, we MIS people KNOW it's not an error but my help desk
> is getting  mucho calls.
> 
> Here is what I am doing in the initial program for one of my user
> classes:
> 
> Program CTG_EUR
>     PGM                                                   
>    CHKOBJ     OBJ(QTEMP/EUR) OBJTYPE(*DTAARA)            
>    MONMSG     MSGID(CPF9801) EXEC(GOTO CMDLBL(FIRSTPASS))
>    GOTO       CMDLBL(END)                                
> 
> FIRSTPASS:  CRTDTAARA  DTAARA(QTEMP/EUR) TYPE(*CHAR) LEN(1) 
> TFRJOB     JOBQ(CTG__EUR)                             
> 
>  END:                                                              
> CALL       PGM(J98INITA)
> ENDPGM                                                
> 
> Now whenever a user logs in a second (or more) times, they receive an
> extra set of messages:
> 
>     Job 947437/EURUSER/QPADEV0027 started on 07/20/98 at 15:30:26 in
> subsystem CTG__EUR
>    Message queue EURUSER is allocated to another job.
> *  TFRJOB command ended the routing step. 
> *  Routing step started in subsystem CTG__EUR.
> *  Message queue EURUSER is allocated to another job. 
> 
> Does anyone know how NOT to have those last 3 messages???  I have
> tried changing the message severity, making the message queue as
> *HOLD. 
> 
> Any answer that doesn't say I'm crazy will be appreciated.
> 
> Thanks in advance.
> John
> 
> John W. Cirocco
> 
+---
| 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
+---