REPORT z_barry_sysinfo LINE-SIZE 400.
TABLES:shkontext.
DATA: BEGIN OF version_info OCCURS 0,
line(400),
END OF version_info.
DATA: database_release(10).
CALL 'SAPCORE' ID 'ID' FIELD 'VERSION'
ID 'TABLE' FIELD version_info-*sys*.
LOOP AT version_info.
WRITE / version_info.
ENDLOOP.
CALL 'GET_PARAM_TCOD'
ID 'PTCOD' FIELD shkontext-tcode.
CALL FUNCTION 'DB_GET_RELEASE'
IMPORTING
release = database_release.
WRITE:/ 'Tcode:' , 22 shkontext-tcode.
WRITE:/ 'DB-Release:', 22 database_release.
WRITE:/ 'SAP-Release:', 22 sy-saprl