Multiple Subsystems and user classes

[John Cirocco <JCirocco@xxxxxxxxxx>]

Danny,

>>Another point of concern and one I'm trying to work around:  I have
>>multiple interactive subsystems.  One has specific device names
>>specified.  These devices are the names of devices that the IS Staff
>>uses either at work or from home.  With the random naming, I cannot
>>guarantee that I will get the same device each time.  

You may try what I am doing.  All my developers use the same startup
program.  It is as follows:

         PGM
        CHKOBJ     OBJ(QTEMP/PGMR) OBJTYPE(*DTAARA)                        
        MONMSG     MSGID(CPF9801) EXEC(GOTO CMDLBL(FIRSTPASS)) 
 
FOUNDIT:    GOTO       CMDLBL(END)   

FIRSTPASS:  CRTDTAARA DTAARA(QTEMP/PGMR) 
                             TYPE(*CHAR)  LEN(1)
        TFRJOB     JOBQ(QINTERPGMR) 
 
END:        ENDPGM

I do this for multiple user classes and it works like a champ.

John
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *