report  z_introspector_load_text.

*----------------------------------------------------------------------*
*       CLASS lcl_introspector_load_text DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_introspector_load_text definition.
  public section.
    types: begin of ty_airline_text,
            carrier_id   type s_carr_id,
            carrier_text type string,
           end of ty_airline_text.

    types: ty_airline_text_t type standard table of ty_airline_text.

    class-methods:
          main.

  private section.

endclass.                    "lcl_introspector_load_text DEFINITION


*----------------------------------------------------------------------*
*       CLASS lcl_introspector_load_text IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_introspector_load_text implementation.

  method main.

*-- internal table definition
    data: lt_airline_text type ty_airline_text_t,
          lt_lines type tline_t.

*-- structure defintion
    data: ls_header type thead.

*-- local variables
    data: lv_text type string.

*-- field symbols
    field-symbols: <lfs_airline_text> like line of lt_airline_text.


*-- build text objects
    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id = 'AA'.

    concatenate
      'American Airlines, Inc. is a major U.S. airline '
      'headquartered in Fort Worth, Texas. It operates '
      'an extensive international and domestic network, '
      'with scheduled flights throughout North America, '
      'the Caribbean, South America, Europe, and Asia.'
      '(Wikipedia)'
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id = 'DL'.
    concatenate
      'Delta Air Lines, Inc. is a major American airline, '
      'with its headquarters and largest hub at '
      'Hartsfield-Jackson Atlanta International Airport in '
      'Atlanta, Georgia. (Wikipedia)'
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id =  'JL'.
    concatenate
      'Japan Airlines Co., Ltd., is an airline headquartered '
      'in Shinagawa, Tokyo, Japan. It is the flag carrier of '
      'Japan and its main hubs are Tokyo''s Narita '
      'International Airport and Tokyo International Airport '
      '(Haneda Airport). (Wikipedia)'
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id =  'LH'.
    concatenate
      'Deutsche Lufthansa AG, commonly known as Lufthansa, '
      'is the flag carrier of Germany and also the largest '
      'airline in Europe, both in terms of overall '
      'passengers carried and fleet size when combined with '
      'its subsidiaries. (Wikipedia)'
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id =  'QF'.
    concatenate
      'Qantas is the flag carrier airline of Australia. '
      'The name was originally "QANTAS", an acronym for '
      '"Queensland and Northern Territory Aerial Services".'
      '(Wikipedia)'
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id = 'SQ'.
    concatenate
      'Singapore Airlines Limited is the flag carrier of '
      'Singapore and a 5-star airline. Singapore Airlines '
      'operates a hub at Changi Airport and has a strong '
      'presence in the Southeast Asia, East Asia, South Asia, '
      'and "Kangaroo Route" markets. (Wikipedia)'
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id =   'UA'.
    concatenate
      'United Airlines, Inc. is an American major airline '
      'headquartered in Chicago, Illinois. United is a '
      'wholly owned subsidiary of United Continental '
      'Holdings. The airline was previously owned, at one '
      'point in its history, by The Boeing Company, one of '
      'the world''s largest aircraft manufacturers. (Wikipedia) '
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

    append initial line to lt_airline_text assigning <lfs_airline_text>.
    <lfs_airline_text>-carrier_id = 'AZ'.
    concatenate
      'Alitalia, is the flag carrier and national airline of '
      'Italy. The company has its head office in Fiumicino, '
      'Italy. Its hub is Leonardo da Vinci-Fiumicino Airport, '
      'in Rome. (Wikipedia) '
      into <lfs_airline_text>-carrier_text
      separated by cl_abap_char_utilities=>cr_lf.

*-- save text objects
    ls_header-tdobject = 'ZCARRIER'.
    ls_header-tdid     = 'ZLTX'.
    ls_header-tdspras  = sy-langu.


    loop at lt_airline_text assigning <lfs_airline_text>.
      ls_header-tdname = <lfs_airline_text>-carrier_id.

      cl_hrrcf_cs_sf=>convert_string_to_itf(
        exporting
          p_text = <lfs_airline_text>-carrier_text
        importing
          pt_itf = lt_lines ).

      call function 'SAVE_TEXT'
        exporting
          header   = ls_header
          insert   = abap_false
        tables
          lines    = lt_lines
        exceptions
          id       = 1
          language = 2
          name     = 3
          object   = 4
          others   = 5.

    endloop.

    commit work.

  endmethod.                    "main

endclass.                    "lcl_introspector_load_text IMPLEMENTATION


*-- start of selection
start-of-selection.
  lcl_introspector_load_text=>main( ).