Data Interfaces

ENDCASE.
LOOP AT CARRITAB.
WRITE: / CARRITAB-CARRID,
ENDLOOP.
15 CARRITAB-CARRNAME,
40 CARRITAB-CURRCODE.
FUNCTION TRAIN415_RFC_GET_CARRIER.
*"----------------------------------------------------------------
-
*"*"Local interface:
*" IMPORTING
*" VALUE(CARRID) LIKE SCARR-CARRID DEFAULT SPACE
*" TABLES
*" CARRIER STRUCTURE SCARR
*" EXCEPTIONS
*" NO_CARRIER_FOUND
*"----------------------------------------------------------------
-
IF CARRID NE SPACE.
ELSE.
ENDIF.
TRANSLATE CARRID USING '+_*%'.
CARRID = '%'.
SELECT * FROM SCARR INTO TABLE CARRIER
IF SY-SUBRC NE 0.
WHERE CARRID LIKE CARRID.
MESSAGE E038 RAISING NO_CARRIER_FOUND.
* No data for this selection (New input please)
ENDIF.
ENDFUNCTION.