Re: Seperate Subsystems for MIS users

Try this code.  I use it to segregate the programmers from the rest of the 
users.

               PGM
               DCL        VAR(&CHK) TYPE(*CHAR)
               RTVDTAARA  DTAARA(*LDA (1 1)) RTNVAR(&CHK)
               IF         COND(&CHK *EQ '1') THEN(GOTO CMDLBL(CONT))
               CHGDTAARA  DTAARA(*LDA (1 1)) VALUE('1')
               TFRJOB     JOBQ(QPGMR)
CONT:    CALL PGM(*LIBL/CMD)
               ENDPGM

                                                                    James 
Turnbull
                                                                    AS/Tech 
Consulting

Pete Hall wrote:

> At 12:18 AM 7/5/98 -0400, Jim Welsh wrote:
> >So I can have a simple CL program as an intial program that just does a 
>TFRJOB
> >to MISINTER?
>
> That is certainly possible, but understand that when you run TFRJOB, the 
>initial program will be executed again, so you will need to handle that, 
>possibly by creating an object in QTEMP and testing for its existence.
>
> Pete Hall
> peteh@inwave.com
> http://www.inwave.com/~peteh/
>
> +---
> | 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 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
+---