[ABAP] SAP Release Information lesen

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( ).