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–15
The following screen shows partial results of executing the procedure:
(13:43) --------------------- OPERATOR CONTROL SERVICES ----------------------
START ZEX1805N
USERID is NMTJN
GROUP_USERID is
NORM_UDEFN is Y
USERNAME is John New
GUARDIAN_ID{2} is 100,21
GUARDIAN_ID{3} is 154,21
GUARDIAN_ID{4} is 0,0
GUARDIAN_ID{5} is 0,0
GUARDIAN_ID{6} is 0,0
GUARDIAN_ID{7} is 0,0
GUARDIAN_ID{8} is 0,0
GUARDIAN_ID{9} is 0,0
LOCATION is PUBLICATIONS
PHONE is 123 4567
LANG is US
LAST_UPDATE is FRI 02-SEP-1994 13:43
LAST_LOGON is FRI 02-SEP-1994 13:35
LOGOFF_TIME is FRI 02-SEP-1994 13:35
PHYSICAL_TERMID is $ZTLS.#PTY4
LOGICAL_TERMID is #3698224
AUTO HOLD ------------------ NonStop NET/MASTER D30 ---------------- --------
M=>
Updating a Record The SECCALL UPDATE verb updates information in a user ID definition record. You
must create an MDO variable and assign the new data to individual elements in the
MDO variable before passing the information to the UMS database. The following
NCL procedure changes the value of one element in a user ID definition record:
zex1806n: PROCEDURE EXTPARSE SMART NOFOLD
/* Updates information in a record in UMS */
&userid = &1; SAY "User ID is "&userid
&element = &2; SAY "Element is "&element
&value = &3; SAY "Value is "&value
ASSIGN OPT=VALUE MDO=&abc. MAP=$SEC
&abc.&element = &value
SECCALL UPDATE USERID=&userid MDO=&abc.
SELECT &SYS.RETCODE
WHEN 0 THEN SAY "0 "&userid updated
WHEN 4 THEN SAY "4 "&SYSMSG
OTHERWISE
SAY "&SYS.RETCODE is "&SYS.RETCODE
END /*select*/
END zex1806n
The user ID, element, and value are entered as parameters to the NCL procedure when
it is executed.