Function Module for Vendor Master Details

To Get The Details Of The Vendor, Here The Steps-
Step 1 - Create The Structure By Going To The T-Code SE11.
LIFNR
ADRNR
REGIO
TELF1
NAME1
SMTP_ADDR
AKONT
ZWELS
STCEG
ANRED
BANKL
BANKN
KOINH
J_1IEXCD
J_1IEXRN
J_1IEXRG
J_1IEXDI
J_1IEXCO
J_1ICSTNO
J_1ILSTNO
J_1IPANNO
J_1IEXCIVE
J_1ISSIST
J_1IVTYP
J_1IVENCRE
J_1ISERN
J_1IPANREF
STR_SUPPL1
STR_SUPPL2
STREET
HOUSE_NUM1
POST_CODE1
CITY1
COUNTRY

Step 2 - Create A Function Module By T-Code SE37
In Import Parameter Give I_LIFNR.

Here is the Source Code -
SELECT
  LIFNR
        ADRNR
        REGIO
        TELF1
        NAME1
        STCEG
        ANRED
  INTO ITAB
  FROM LFA1 WHERE LIFNR = I_LIFNR.


 APPEND ITAB.


ENDSELECT.
LOOP AT ITAB.
  SELECT
    SMTP_ADDR
   INTO CORRESPONDING FIELDS OF ITAB FROM ADR6 WHERE  ADDRNUMBER = ITAB-ADRNR.
ENDSELECT.

MODIFY ITAB INDEX SY-TABIX.
    ENDLOOP.

   LOOP AT ITAB.
  SELECT
    AKONT
    ZWELS
    INTO CORRESPONDING FIELDS OF ITAB FROM LFB1 WHERE  LIFNR = ITAB-LIFNR.
ENDSELECT.

MODIFY ITAB INDEX SY-TABIX.
    ENDLOOP.

  LOOP AT ITAB.
  SELECT
    J_1IEXCD
    J_1IEXRN
     J_1IEXRG
      J_1IEXDI
      J_1IEXCO
      J_1ICSTNO
      J_1ILSTNO
      J_1IPANNO
         J_1IEXCIVE
        J_1ISSIST
        J_1IVTYP
        J_1IVENCRE
        J_1ISERN
        J_1IPANREF
    INTO CORRESPONDING FIELDS OF ITAB FROM J_1IMOVEND WHERE  LIFNR = ITAB-LIFNR.
ENDSELECT.

MODIFY ITAB INDEX SY-TABIX.
    ENDLOOP.


   LOOP AT ITAB.
  SELECT
      BANKL
     BANKN
     KOINH
    INTO CORRESPONDING FIELDS OF ITAB FROM LFBK WHERE  LIFNR = ITAB-LIFNR.
ENDSELECT.

MODIFY ITAB INDEX SY-TABIX.
    ENDLOOP.

       LOOP AT ITAB.
  SELECT
    STR_SUPPL1
    STR_SUPPL2
    STREET
     HOUSE_NUM1
    POST_CODE1
    CITY1
    COUNTRY
    INTO CORRESPONDING FIELDS OF ITAB FROM ADRC WHERE  ADDRNUMBER = ITAB-ADRNR.
ENDSELECT.

MODIFY ITAB INDEX SY-TABIX.
    ENDLOOP.