*&---------------------------------------------------------------------*
*& Report  ZNR_TEST3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZNR_TEST3.


DATA :  GV_PLANT_NAME like  t001w-name1,
        WERKS   like T001W-WERKS VALUE '1001',
        I_GET_ADDRESS TYPE c ,
        E_T001W TYPE T001W.

CALL FUNCTION 'GET_PLANT_DETAILS'
  EXPORTING
    I_WERKS               = WERKS
   I_GET_ADDRESS         = I_GET_ADDRESS
 IMPORTING
   E_NAME                = GV_PLANT_NAME
*   E_ADDR1               = E_ADDR1
*   E_ADDR2               = E_ADDR2
*   E_ADDR3               = E_ADDR3
*   E_ADDR4               = E_ADDR4
   E_T001W               = E_T001W
 EXCEPTIONS
   NOT_FOUND             = 1
   PARAMETER_ERROR       = 2
   OTHERS                = 3
          .
IF SY-SUBRC = 0.
* Implement suitable error handling here
   WRITE GV_PLANT_NAME.
else .
  message 'not working properly' TYPE 'I'.
ENDIF.

SAME AS ABOVE PROGRAM BUT CHANGE THE WERKS VALUE.

*&---------------------------------------------------------------------*
*& Report  ZNR_TEST3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZNR_TEST3.


DATA :  GV_PLANT_NAME like  t001w-name1,
        WERKS   like T001W-WERKS VALUE '1000',
        I_GET_ADDRESS TYPE c ,
        E_T001W TYPE T001W.

CALL FUNCTION 'GET_PLANT_DETAILS'
  EXPORTING
    I_WERKS               = WERKS
   I_GET_ADDRESS         = I_GET_ADDRESS
 IMPORTING
   E_NAME                = GV_PLANT_NAME
*   E_ADDR1               = E_ADDR1
*   E_ADDR2               = E_ADDR2
*   E_ADDR3               = E_ADDR3
*   E_ADDR4               = E_ADDR4
   E_T001W               = E_T001W
 EXCEPTIONS
   NOT_FOUND             = 1
   PARAMETER_ERROR       = 2
   OTHERS                = 3
          .
IF SY-SUBRC = 0.
* Implement suitable error handling here
   WRITE GV_PLANT_NAME.
else .
  message 'not working properly' TYPE 'I'.
ENDIF.