Variante 1 (TR_READ_GLOBAL_INFO_OF_REQUEST)
SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT (20) lbl1 FOR FIELD p_trkorr. PARAMETERS: p_trkorr LIKE e070-trkorr OBLIGATORY. SELECTION-SCREEN END OF LINE. INITIALIZATION. lbl1 = 'Transport-Auftrag:'. START-OF-SELECTION. DATA: lv_cofile TYPE ctslg_cofile. DATA: lv_user TYPE e070-as4user. DATA: lv_project TYPE trkorr. * Kommandodatei lesen und abhängig vom Aufruf aufbereiten CALL FUNCTION 'TR_READ_GLOBAL_INFO_OF_REQUEST' EXPORTING iv_trkorr = p_trkorr iv_dir_type = 'T' " Typ Directory: T(ransport), P(ut) IMPORTING es_cofile = lv_cofile ev_user = lv_user ev_project = lv_project. cl_demo_output=>write_data( lv_cofile ). cl_demo_output=>write_data( lv_user ). cl_demo_output=>write_data( lv_project ). * html-code holen data(lv_html) = cl_demo_output=>get( ). * Daten im Inline-Browser im SAP-Fenster anzeigen cl_abap_browser=>show_html( EXPORTING title = 'Transportauftrag Cofile' html_string = lv_html container = cl_gui_container=>default_screen ). * cl_gui_container=>default_screen erzwingen WRITE: space.
Variante 2 (STRF_READ_COFILE)
SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT (20) lbl1 FOR FIELD p_trkorr. PARAMETERS: p_trkorr LIKE e070-trkorr OBLIGATORY. SELECTION-SCREEN END OF LINE. INITIALIZATION. lbl1 = 'Transport-Auftrag:'. START-OF-SELECTION. DATA: lv_ev_cofi_header TYPE tstrfcofih. DATA: lv_ev_project TYPE trkorr_p. DATA: lv_et_predecessors TYPE tms_trkorrs. DATA: it_tt_cofi_lines TYPE STANDARD TABLE OF tstrfcofil WITH DEFAULT KEY. * SL-intern: Lesen und Interpretieren Inhalt von cofiles-Dateien CALL FUNCTION 'STRF_READ_COFILE' EXPORTING iv_dirtype = 'T' " Typ Directory: T(ransport), P(ut) iv_trkorr = p_trkorr iv_read_header = 'X' iv_transport_directory = ' ' IMPORTING ev_cofi_header = lv_ev_cofi_header ev_project = lv_ev_project et_predecessors = lv_et_predecessors TABLES tt_cofi_lines = it_tt_cofi_lines EXCEPTIONS wrong_call = 1 no_info_found = 2 OTHERS = 3. IF sy-subrc = 0. cl_demo_output=>write_data( lv_ev_cofi_header ). cl_demo_output=>write_data( lv_ev_project ). cl_demo_output=>write_data( lv_et_predecessors ). cl_demo_output=>write_data( it_tt_cofi_lines ). * html-code holen DATA(lv_html) = cl_demo_output=>get( ). * Daten im Inline-Browser im SAP-Fenster anzeigen cl_abap_browser=>show_html( EXPORTING title = 'Transportauftrag Cofile' html_string = lv_html container = cl_gui_container=>default_screen ). * cl_gui_container=>default_screen erzwingen WRITE: space. ENDIF.