Re: Seperate Subsystems for MIS users

[PaulMmn <PaulMmn@xxxxxxxxxxxxx>]

Why not use the User portion of the job?  If the User is on the Magic List,
do a TFRJOB to the new jobq?  (I assume it's a simple task for you to
identify the programmers out of a bunch of other users).

The program can be quite simple (code provided As Is without any warranty
expressed or implied; it's up to you to compile and test to make sure it
meets your needs.  etc. etc.)(and I may have left something out):


        PGM

        DCL &USER *CHAR 10

        RTVJOBA USER(&USER)
        IF (&USER *EQ 'FREDPGMR') THEN TFRJOB MISINTER

        ENDPGM

=-=-=-=-=-=-=-=-=-

>Hi
>
>Anyone have some examples of a routing entry program that will route two
>QPADEV* users in the MIS department into a seperate interactive
>subsystem ( MISINTER )...
>
>Once we get the device id naming working with v4r2 I imagine we can just
>use ADDWSE
>
>The reason for doing this of course is so we can stay active when Qinter
>is ended.
>
>Sound like a plan ? Any ideas ?
>
>tia
>
>--
>Jim Welsh




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