• Subject: How to write routing entry programs
  • From: "Rich Duzenbury" <rduz@xxxxxxxx>
  • Date: Mon, 6 Sep 1999 01:51:23 -0500
  • Importance: Normal

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 

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.


             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)                                           
             TFRCTL     PGM(QSYS/QCMD)   

| 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

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].