TYPES: ty_it_supp_db TYPE STANDARD TABLE OF thllines WITH DEFAULT KEY.
DATA(lv_kern_rel) = VALUE thllines-thline( ).
DATA(lv_kern_dblib) = VALUE thllines-thline( ).
DATA(lv_kern_comp_on) = VALUE thllines-thline( ).
DATA(lv_kern_comp_time) = VALUE thllines-thline( ).
DATA(lv_kern_patchlevel) = VALUE thllines-thline( ).
DATA(lv_kern_supportlevel) = VALUE thllines-thline( ).
DATA(lv_kern_patchnumber) = VALUE thllines-thline( ).
DATA(lv_kern_sourceid) = VALUE thllines-thline( ).
DATA(it_supp_db_sap) = VALUE ty_it_supp_db( ).
DATA(it_supp_db_vendor) = VALUE ty_it_supp_db( ).
DATA(it_supp_op_sys) = VALUE ty_it_supp_db( ).
DATA(it_patchcomment) = VALUE ty_it_supp_db( ).
* ruft ThSysInfo
CALL FUNCTION 'TH_SAPREL3'
IMPORTING
kern_rel = lv_kern_rel
kern_dblib = lv_kern_dblib
kern_comp_on = lv_kern_comp_on
kern_comp_time = lv_kern_comp_time
kern_patchlevel = lv_kern_patchlevel
kern_supportlevel = lv_kern_supportlevel
kern_patchnumber = lv_kern_patchnumber
kern_sourceid = lv_kern_sourceid
TABLES
supp_db_sap = it_supp_db_sap
supp_db_vendor = it_supp_db_vendor
supp_op_sys = it_supp_op_sys
patchcomment = it_patchcomment.
cl_demo_output=>write_data( lv_kern_rel ).
cl_demo_output=>write_data( lv_kern_dblib ).
cl_demo_output=>write_data( lv_kern_comp_on ).
cl_demo_output=>write_data( lv_kern_comp_time ).
cl_demo_output=>write_data( lv_kern_patchlevel ).
cl_demo_output=>write_data( lv_kern_supportlevel ).
cl_demo_output=>write_data( lv_kern_patchnumber ).
cl_demo_output=>write_data( lv_kern_sourceid ).
cl_demo_output=>write_data( it_supp_db_sap ).
cl_demo_output=>write_data( it_supp_db_vendor ).
cl_demo_output=>write_data( it_supp_op_sys ).
cl_demo_output=>write_data( it_patchcomment ).
cl_demo_output=>display( ).