DATA: kern_rel TYPE thllines-thline. " Kernel Release
DATA: kern_make_variant TYPE thllines-thline. " Makevariante
DATA: kern_dblib TYPE thllines-thline. " Database libraries
DATA: kern_comp_on TYPE thllines-thline. " compiled on
DATA: kern_comp_time TYPE thllines-thline. " compile time
DATA: kern_patchlevel TYPE thllines-thline. " patch level
DATA: kern_supportlevel TYPE thllines-thline. " support level
DATA: kern_patchnumber TYPE thllines-thline. " patch number
DATA: kern_sourceid TYPE thllines-thline. " source id
DATA: kern_comp_level TYPE i. " compatibility level of the kernel
DATA: supp_db_sap TYPE TABLE OF thllines. " database release (SAP, table SVERS)
DATA: supp_db_vendor TYPE TABLE OF thllines. " databse release (vendor)
DATA: supp_op_sys TYPE TABLE OF thllines. " operation system
DATA: patchcomment TYPE TABLE OF thllines. " patch level information
CALL FUNCTION 'TH_SAPREL4'
IMPORTING
kern_rel = kern_rel
kern_make_variant = kern_make_variant
kern_dblib = kern_dblib
kern_comp_on = kern_comp_on
kern_comp_time = kern_comp_time
kern_patchlevel = kern_patchlevel
kern_supportlevel = kern_supportlevel
kern_patchnumber = kern_patchnumber
kern_sourceid = kern_sourceid
kern_comp_level = kern_comp_level
TABLES
supp_db_sap = supp_db_sap
supp_db_vendor = supp_db_vendor
supp_op_sys = supp_op_sys
patchcomment = patchcomment.
WRITE: / |Kernel Release: { kern_rel }|.
WRITE: / |Makevariante: { kern_make_variant }|.
WRITE: / |Database libraries: { kern_dblib }|.
WRITE: / |compiled on: { kern_comp_on }|.
WRITE: / |compile time: { kern_comp_time }|.
WRITE: / |patch level: { kern_patchlevel }|.
WRITE: / |support level: { kern_supportlevel }|.
WRITE: / |patch number: { kern_patchnumber }|.
WRITE: / |source id: { kern_sourceid }|.
WRITE: / |compatibility level of the kernel: { kern_comp_level }|.
WRITE: / |database release (SAP, table SVERS):|.
LOOP AT supp_db_sap INTO DATA(rel).
WRITE: / |{ rel-thline }|.
ENDLOOP.
WRITE: / |databse release (vendor):|.
LOOP AT supp_db_vendor INTO DATA(ven).
WRITE: / |{ ven-thline }|.
ENDLOOP.
WRITE: / |operation system:|.
LOOP AT supp_op_sys INTO DATA(op).
WRITE: / |{ op-thline }|.
ENDLOOP.
WRITE: / |patch level information:|.
LOOP AT patchcomment INTO DATA(patch).
WRITE: / |{ patch-thline }|.
ENDLOOP.