REPORT  ZSAPGOS_001.

TABLES: SCARR.

PARAMETERS: P_CARRID LIKE SCARR-CARRID.

START-OF-SELECTION.

CLEAR: SCARR.
SELECT SINGLE *
       FROM SCARR
      WHERE CARRID = P_CARRID.

IF SY-SUBRC NE 0.
   LEAVE LIST-PROCESSING.
ENDIF.

END-OF-SELECTION.

WRITE:/ '항공사 정보'.
SKIP 1.
WRITE: /(10) '항공사명 :',
      12(50) SCARR-CARRNAME.
WRITE: /(10) '홈페이지:',
      12(50) SCARR-URL.

CALL FUNCTION 'SWU_OBJECT_PUBLISH'
  EXPORTING
    objtype                 = 'ZSAPGOS'
    objkey                  = P_CARRID.