U@GETUSRDSPNM

U@GETUSRDSPNM displays a 30-character user identification name.

Module DATABASE

Input

Field Type and length Definition
E@USRDBUIDKEY A 10 Finds the user ID name.

Output

Field Type and length Definition
E@USRDISPLAYNM A 30 Displays the longer user name.

Programming Example

    IF        DAPJ@NOTFOUND <> FALSE  
              OR  DAPJUSRCLS <> F2@APCL 
    CLEAR                   F2@PTAPID 
    ELSE  
    EVAL      E@USRDBUIDKEY  = DAPJUSERID    
    CALLP     U@GETUSRDSPNM           Get User Display Name 
    EVAL      F2@PTAPID      = E@USRDISPLAYNM
    ENDIF