Data: transport_list type standard table of TMS_TRKORR.

if as4date is initial.

  as4date = '19000101'.

endif.

  SELECT TRKORR FROM E070

    INTO TABLE TRANSPORT_LIST

    where as4date ge as4date.

….

  CALL FUNCTION 'TR_READ_GLOBAL_INFO_OF_REQUEST'

       EXPORTING

            iv_trkorr                 = wa_trkorr

            iv_dir_type               = 'T'

            is_settings               = is_settings

            iv_suppress_deleted_steps = ' '

            it_comm_systems           = it_comm_systems

       IMPORTING

            es_cofile                 = es_cofile

            ev_user                   = ev_user.

  LOOP AT es_cofile-systems INTO systems_head.

….