Display the ABAP Dictionary Elements from Program

[rajkumarnarasimman]

Using SE11,  We can have ABAP Dictionary elements. Using Functional module RS_DD_SHOW, we can show the same ABAP Dictionary Elements from Program.

ABAP Dictionary - SE11

Object Types in ABAP Dictionary are

1. Database Table
2. View
3. Data Type
4. Structure
5. Table Type
6. Type Group
7. Domain
8. Search Help
9. Lock Object

Database Table:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'MARA'.      "Table Name   

  Eutype  = 'T'.         "Table

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

View:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'V_T001A'.   "View Name   

  Eutype  = 'V'.         "View

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Data Element:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'ATWRT'.   "Data Element Name  

  Eutype  = 'E'.       "Data Element

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Structure:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'ZABAP_JOB_STEPS'.   "Structure Name  

  Eutype  = 'S'.                 "Structure

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Table Type:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'ZAGENTS'.   "Table Type Name  

  Eutype  = 'A'.         "Table Type

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Type Group:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'ZTTPR'.   "Type Group Name  

  Eutype  = 'G'.       "Type Group

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Domain:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'ATWRT'.   "Domain Name  

  Eutype  = 'D'.       "Domain

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Search Help:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'ZACT_NO'.   "Search Help Name  

  Eutype  = 'H'.         "Search Help

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Lock Object:

"Code

  Data: objname TYPE  RSEDD0-DDOBJNAME,

        eutype  TYPE  RSEDD0-DDOBJTYPE.

  objname = 'ECHIER_SHR'.   "Lock Object Name  

  Eutype  = 'L'.            "Lock Object

   CALL FUNCTION 'RS_DD_SHOW'
  EXPORTING
   objname = objname
   objtype = eutype.

Regards

Rajkumar Narasimman