FUNCTION ZSRB_FM_1.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(CARRID) TYPE  SFLIGHT-CARRID
*"  EXPORTING
*"     VALUE(CARRNAME) TYPE  SCARR-CARRNAME
*"     VALUE(CURRCODE) TYPE  SCARR-CURRCODE
*"     VALUE(URL) TYPE  SCARR-URL
*"----------------------------------------------------------------------
  DATA: lv_CARRID type sflight-carrid,

        it_scarr type TABLE OF scarr,
        wa_scarr type scarr.


  lv_carrid = CARRID.

  IF carrid is not INITIAL.
    select  * from scarr into CORRESPONDING FIELDS OF TABLE it_scarr
      WHERE carrid eq lv_carrid.
  ENDIF.


**********************************************************************
* fali error handling
  IF it_scarr is NOT INITIAL.
    READ TABLE it_scarr INDEX 1 into wa_scarr.
    carrname = wa_scarr-carrname.
    currcode = wa_scarr-currcode.
    url      = wa_scarr-url.
  ENDIF.





ENDFUNCTION.