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

Accessing the User ID Management Services (UMS) Database
Advanced NCL Programming
18–10 106160 Tandem Computers Incorporated
Changing Personal Details
You can change the following personal details using the SECCALL CHANGE verb:
user name, location, and phone number. The following NCL procedure changes
personal details for the specified user ID:
zex1803n: PROCEDURE EXTPARSE SMART NOFOLD
/* Changes personal details for a user ID */
/* &1 = user ID */
/* &2 = current password */
/* &3 = user name */
/* &4 = location */
/* &5 = phone */
SECCALL GET USERID=&1 MDO=&xyz.
SAY "Current user name is "&xyz.username
SAY "Current location is "&xyz.location
SAY "Current phone is "&xyz.phone
ASSIGN OPT=VALUE MDO=&abc. MAP=$SEC
&abc.username = &3
&abc.location = &4
&abc.phone = &5
SECCALL CHANGE USERID=&1 PWD=&2 MDO=&abc.
SELECT &SYS.RETCODE
WHEN 0 THEN DO
SECCALL GET USERID=&1 MDO=&ums.
IF &SYS.RETCODE = 0 THEN DO
SAY "New user name is "&ums.username
SAY "New location is "&ums.location
SAY "New phone is "&ums.phone
END /*do*/
ELSE
SAY "Error "&SYS.RETCODE &SYSMSG
END /*do*/
WHEN 4 THEN SAY "4 Function not supported"
WHEN 8 THEN SAY "8 "&SYSMSG
OTHERWISE
SAY "&SYS.RETCODE is "&SYS.RETCODE
END /*select*/
END zex1803n
The user ID, current password, user name, new location, and new phone number are
specified as parameters when the NCL procedure is executed.