NET/MASTER Network Control Language (NCL) Programmer's Guide

Accessing the User ID Management Services (UMS) Database
Advanced NCL Programming
106160 Tandem Computers Incorporated 18–13
An alternative to using SECCALL GET to obtain your user ID information is using the
SECCALL QUERY verb. This obtains user ID information about the current user from
memory. This speeds up the access to user ID information by avoiding unnecessary
disk access. The following example obtains user ID information about the current user
from memory:
SECCALL QUERY MDO=&MYDATA.
Hint To improve the performance of an NCL process, use SECCALL QUERY rather than SECCALL GET to
obtain user ID information about the current user.
The following NCL procedure obtains information about your user ID definition from
the UMS database:
zex1805n: PROCEDURE
/* Gets details about your user ID from UMS */
SECCALL GET USERID=&SYS.USER.ID MDO=&ums.
SAY "USERID is "&ums.userid
SAY "GROUP_USERID is "&ums.group_userid
SAY "NORM_UDEFN is "&ums.norm_udefn
SAY "USERNAME is "&ums.username
/* May have more than one Guardian ID */
DO &i = 2 TO 9
&g1 = C2D(SUBSTR(&ums.guardian_id{&i},1,,,1))
&g2 = C2D(SUBSTR(&ums.guardian_id{&i},2,,,1))
SAY "GUARDIAN_ID{"&i"} is "&g1","&g2
END /*do*/
SAY "LOCATION is "&ums.location
SAY "PHONE is "&ums.phone
SAY "LANG is "&ums.lang
/* Extract date and time of last update */
&date = SUBSTR(&ums.last_update,1,,,15)
&time = SUBSTR(&ums.last_update,16,,,5)
SAY "LAST_UPDATE is "&date &time
/* Extract date and time of last logon */
&date = SUBSTR(&ums.last_logon,1,,,15)
&time = SUBSTR(&ums.last_logon,16,,,5)
SAY "LAST_LOGON is "&date &time
/* Extract date and time of last logoff */
&date = SUBSTR(&ums.logoff_time,1,,,15)
&time = SUBSTR(&ums.logoff_time,16,,,5)
SAY "LOGOFF_TIME is "&date &time
SAY "PHYSICAL_TERMID is "&ums.physical_termid
SAY "LOGICAL_TERMID is "&ums.logical_termid
SAY "UMS_ACCESS is "&ums.ums_access
SAY "OCS_ACCESS is "&ums.ocs_access
SAY "EXT_LOG is "&ums.ext_log
SAY "SYS_SUPP is "&ums.sys_supp
SAY "EDIT_ACCESS is "&ums.edit_access
SAY "CE_ACCESS is "&ums.ce_access