Code: Alles auswählen.
DATA:
lv_wp_no TYPE wpinfo-wp_no,
lv_wp_pid TYPE wpinfo-wp_pid,
lv_wp_index TYPE wpinfo-wp_index.
CALL FUNCTION 'TH_GET_OWN_WP_NO'
IMPORTING
wp_no = lv_wp_no
wp_pid = lv_wp_pid
wp_index = lv_wp_index.
DATA:
lv_appl_info TYPE c LENGTH 1023,
lv_offset TYPE i,
lv_service TYPE string.
CALL FUNCTION 'TH_GET_APPL_INFO'
EXPORTING
wp_index = lv_wp_index
IMPORTING
appl_info = lv_appl_info
EXCEPTIONS
no_appl_info_found = 1
timeout = 2
OTHERS = 3.
FIND FIRST OCCURRENCE OF 'P=' IN lv_appl_info MATCH OFFSET lv_offset.
ADD 2 TO lv_offset.
lv_service = lv_appl_info+lv_offset.