900-GET-USER-DBUIDKEY

900-GET-USER-DBUIDKEY retrieves the user identification name and converts it to or from a 30-character display.

Library DATABASE

Input

Field Type and length Definition
WS-USER-DISPLAY-NAME A 30 Retrieves the long user name.

Output

Field Type and length Definition
WS-USER-DBUIDKEY A 10 Converts to 10 characters.

Programming Example

 MOVE AP04F2-APJ-USER-CLASS         TO APJ-USER-CLASS.
 MOVE AP04F2-APJ-USER-ID (I1)        TO WS-USER-DISPLAY-NAME.
       PERFORM 900-GET-USER-DBUIDKEY.
 MOVE WS-USER-DBUIDKEY               TO APJ-USER-ID.
 MOVE AP04F2-APJ-INQUIRE-ACCESS (I1) TO APJ-INQUIRE-ACCESS.
 MOVE AP04F2-APJ-UPDATE-ACCESS (I1)  TO APJ-UPDATE-ACCESS.