U@EDITUSERNM

U@EDITUSERNM edits the name in E@WSUSERNAMEand validates that it is in the list of names in the security tables. For an invalid name, E@ERRORNBR is set to 021.

Module DATABASE
Input E@WSUSERNAME
Output E@ERRORNBR (set for error)

Programming Example

*       Validate current user name.
*
     EVAL      E@ERRORNBR     = 0
     EVAL      E@WSUSERNAME   = new-user-name         
     CALLP     U@EDITUSERNM