How to write routing entry programs

["Rich Duzenbury" <rduz@xxxxxxxx>]

I'm trying to write a program that will redirect certain users to a different 
subsystem (regardless of their workstation name) as their job begins, with some 
success.  For various reasons, I cannot or do not want to change their initial 
program.

Instead, I have the following code tied to a routing entry in each of the 
affected subsystems.  It works pretty well, but has the annoying habit of 
displaying any messages on the *EXT message queue at the time the TFRJOB 
statement is executed.

Typically, the display shows the following:
TFRJOB command ended the routing step. (CPF1293)
Routing step started in subsystem XXXX. (CPF1294)

I notice this does not happen when using TFRJOB on 'conforming' subsystems from 
a command line such as going from QINTER to QCTL for example.

Does anyone know the proper way to move the job without the messages appearing?

Many Thanks.

Regards,
Rich



PGM                                                                             
  
                                                                                
  
             DCL        VAR(&SBSID) TYPE(*CHAR) LEN(10)                         
  
             DCL        VAR(&TARGET) TYPE(*CHAR) LEN(10)                        
  
             DCL        VAR(&FRLIB) TYPE(*CHAR) LEN(10) +                       
  
                          VALUE('WMCDUZ') /* LIB FOR ALL FLYRIGHT OBJECTS */    
  
                                                                                
  
             /* GET CURRENT SUBSYSTEM */                                        
  
             CALL       PGM(&FRLIB/FLYRIGHTJ) PARM(&SBSID)                      
  
                                                                                
  
             /* GET TARGET LOCATION */                                          
  
             CALL       PGM(&FRLIB/FLYRIGHTT) PARM(&TARGET)                     
  
                                                                                
  
             IF         COND((&SBSID *NE &TARGET) *AND (&SBSID *NE +            
  
                          ' ')) THEN(DO)                                        
  
             TFRJOB     JOBQ(&TARGET)                                           
  
             ENDDO                                                              
  
                                         
             TFRCTL     PGM(QSYS/QCMD)   
ENDPGM                                   

+---
| 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
+---