SYS INFO

 

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.