900-GET-USER-DISPLAY-NAME

900-GET-USER-DISPLAY-NAME displays a 30-character user identification name.

Library DATABASE

Input

Field Type and length Definition
WS-USER-DBUIDKEY A 10 Finds the user ID name.

Output

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

Programming Example

       IF (APUSER-NOTFOUND)
       OR (APJ-USER-CLASS NOT = AP04F2-APJ-USER-CLASS)
           INITIALIZE AP04F2-PT-APJ-USER-ID
       ELSE
                 MOVE APJ-USER-ID       TO WS-USER-DBUIDKEY
                 PERFORM 900-GET-USER-DISPLAY-NAME
                 MOVE WS-USER-DISPLAY-NAME
                                  TO AP04F2-PT-APJ-USER-ID
       END-IF