取用戶帳號描述

 

 DATA: NAME_FIRST LIKE ADRP-NAME_FIRST,
        NAME_LAST  LIKE ADRP-NAME_LAST.

  SELECT SINGLE

                  ADRP~NAME_FIRST
                  ADRP~NAME_LAST
     FROM ADRP

    INNER JOIN USR21 ON ADRP~PERSNUMBER =  USR21~PERSNUMBER
    INTO (NAME_FIRST,NAME_LAST)
  WHERE  USR21~BNAME = USERID.