Environmental Subroutines and MSOINFO

The MSOINFO subroutine returns information on the MSO environment. The subroutine has two parameters: the information being requested, and a return field where the results are placed. Unless otherwise specified, the return field must be an 8-byte field.

The following items can be queried:

Field	Length	Contents
ACCESS		Returns VTAM, TSO, or CICS.
ACCOUNT	40	The account field (currently implemented only for VTAM).
APPLID		The LU2 applid for the region (available only to VTAM callers).
CICSREG		CICS region name (available only if connected from CICS).
GROUP		Security group.
LOGID		Logonid, same field as from GETLOGID subroutine.
PRFID		Prefix, same field as from GETPRFID subroutine.
RELEASE	12	Release of FOCUS.
SECID		Security id, same field as from GETSECID subroutine.
SERVER		Name of the MSO region (batch job name or started task name).
SERVICE		Name of the SERVICE user is running under (normally FOCUS).
TASKNUM		Unique task number (a count from 1 to MAXSERVERs, as a 4-digit number).
TERMID		CICS terminal id (available only if connected from CICS).
TERMINAL		Luname of terminal (available only if connected via VTAM).
TSOID		TSO userid (available only if connected from TSO or ROSCOE).

The following example requests information about ACCESS, using Dialogue Manager. The value for ACCESS is returned to the variable &ANS:

-SET &REQ = 'ACCESS  ';
-SET &ANS = '        ';
-TSO RUN MSOINFO,&REQ,&ANS
-TYPE You have accessed MSO via &ANS

The result is displayed as:

You have accessed MSO via VTAM

In addition, the FOCUS GETUSER subroutine is supported in MSO. MSO additionally provides subroutines to allow the user to obtain the MSO security ID (GETSECID), the logon ID (GETLOGID), and the prefix (GETPRFID). These subroutines are called using the same calling sequence as GETUSER. An example follows:

-SET &USERID='12345678' ;
-SET &USERID=GETLOGID(&USERID) ;
-TYPE Your userid is &USERID

The result is displayed as:

Your userid is THX1138

Information Builders