Re: How to write routing entry programs

[Pete Hall <pbhall@xxxxxxxxxx>]

At 01:51 09/06/1999 , Rich Duzenbury wrote:
>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?

I don't know about "proper", but you might try ignoring status message 
during the transfer by changing the status message handling with the CHGJOB 
command. If that doesn't work, you could create your own message file, put 
blank CPF1293 and CPF1294 messages in it and use OVRMSGF in your program to 
cause your message file to be used for these messages instead of QCPFMSG. 
The blank messages will be invisible.
Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| 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
+---