取引先名(長)を取得 ABAP

*    LW_NAME1 TYPE ADRC-NAME1,

*    LW_ADRNR TYPE LFA1-ADRNR.

*LFA1 NAME1 --- char 35

*ADRC NAME1 --- char 40

*----- 取引先名(長)を取得

  SELECT SINGLE

    ADRNR

  INTO LW_ADRNR

  FROM LFA1

  WHERE LIFNR = P_LIFNR.

  SELECT SINGLE

    NAME1

  INTO LW_NAME1

  FROM ADRC

  WHERE ADDRNUMBER = LW_ADRNR.