900-EDIT-USER-NAME

900-EDIT-USER-NAME edits the name in WS-USER-NAME and validates that it is in the list of names in the security tables. For an invalid name, CRT-ERROR-NBR is set to 021.

Library DATABASE
Input WS-USER-NAME
Output CRT-ERROR-NBR (set for error)

Programming Example

*       Validate current user name.
*
        MOVE ZERO                       TO CRT-ERROR-NBR.
        MOVE new-user-name              TO WS-USER-NAME.
        PERFORM 900-EDIT-USER-NAME.