RE: Technical and Philosophy

[Evan Harris <spanner@xxxxxxxxxx>]

Hi Chris

Not picking on your suggestion, just you were first in the queue :)

I have to say I really dislike the idea of naming devices and 
allocating them to a subsystem to achieve this.

It can be done relatively simply using a routing entry which has the 
added advantage that when you happen to be logging on remotely you 
don;t have to remember to name your device.

The caveat mentioned elsewhere about running two subsystems applies 
and which one they will be allocated  to.

Most of these commands would be required if creating a second 
subsystem anyway, so there's no damage there.

The steps to do this (from some old notes) are:

This subsystem will allow Telnet Only access as an alternative to Qinter.
Access to the subsystem will be permitted by use of Routing Entries rather
than relying on Workstation Names.
Note that this subsystem should not be left operational while QINTER is active.

Create a class for the subsystem specifying interactive-like parameters.

CRTCLS          CLS(*LIBL/ADMSBS)
TIMESLICE(500)
TEXT('System Admin Class')

Create the subsystem description.

CRTSBSD         SBSD(*LIBL/ADMSBS)
POOLS((*N *BASE))
TEXT('Admin Access')

Add a routing entry allowing permitted users to run OS/400 commands

ADDRTGE         SBSD(*LIBL/ADMSBS)
SEQNBR(10)
CMPVAL('FSADMIN')
PGM(QCMD)

Add a routing entry that signs off users not permitted to access the 
system in administrative mode
Create a program that just does a SIGNOFF command to support the routing entry.

ADDRTGE         SBSD(*LIBL/ADMSBS)
SEQNBR(20)
CMPVAL(*ANY)
PGM(*LIBL/SIGNOFF)

Create a Job Description with the required Routing Data to access the 
Admin subsystem.
Permitted users should have their profiles modified to use JOBD 
*LIBL/SYSADMIN or a suitable alternative.

CRTJOBD         JOBD(*LIBL/SYSADMIN)
RTGDTA(FSADMIN)

Add a routing entry to QINTER to ensure users can also access the normal
interactive subsystem correctly if it is active

ADDRTGE         SBSD(QSYS/QINTER)
SEQNBR(100)
CMPVAL('FSADMIN')
PGM(QCMD)

I have set up something similar at a few places.

Regards
Evan Harris

At 08:55 a.m. 7/02/2006, you wrote:
> ADDWSE SBSD(*LIBL/ITINTER)
>        WRKSTN(IT*)
>        AT(*SIGNON)
>
> ADDWSE SBSD(*LIBL/QINTER)
>        WRKSTN(IT*)
>        AT(*ENTER)
>
> then name all of your IT display devices starting with IT and they will
> be allocated to the new subsystem at the signon screen.
>
> There is much more in setting up a interactive subsystem that just what
> is listed here.  If you never have set one up, print out the QINTER
> subsystem description and read, read, read.
>
> DSPSBSD SBSD(QINTER)
>         OUTPUT(*PRINT)
>
>
> Christopher Bipes
> Information Services Director
> CrossCheck, Inc.
>
> 707.586.0551, ext. 1102
> 707.585.5700 FAX
>
> Chris.Bipes@xxxxxxxxxxxxxxx
> www.Cross-Check.com