900-GET-LONG-USER-NAME

900-GET-LONG-USER-NAME gets the long user name, if it exists, from the security system. This is used most often to display the full first and last name of the user. The long name is found through the password of the passed WS-USER-NAME . If the security system is not used, or there is no long name available, WS-LONG-USER-NAME is returned with blank fill.

        IF  (BL15F1-FC                  = "A")
        OR  (BL15F1-BOP-NAME            = SPACES)
             MOVE BL15F1-BOP-OPERATOR    TO WS-USER-NAME
             PERFORM 900-GET-LONG-USER-NAME
             MOVE WS-LONG-USER-NAME      TO BL15F1-BOP-NAME.