Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
stefan_schnell
Active Contributor
This week I had to answer the question which RFC destinations are used in the system data containers by eCATT. So I programmed a tiny report to get all target systems from TAC SECATT. Also the options and description from the RFC destination from TAC SM59. On this way you get a fast and compact overview and can simply use the result with other applications.

You can find the eCATT information in the table ecsd_def (ecsd = eCATT System Data). The information of the RFC destination are in the tables rfcdes and rfcdoc. From rfcdes I detect the options, which contains all information e.g. from administration, technical settings etc., and from rfcdoc the first row of the description.

With an OpenSQL statement all information are combined and the information is provided in a CSV file with a simple download.
"-Begin-----------------------------------------------------------------
REPORT Z_GET_DEST.

TYPES: BEGIN OF ty_dest,
name TYPE ecsd_sys-name, "Name of the System Data
testsystem TYPE ecsd_sys-testsystem, "Target system
rfcdest TYPE ecsd_sys-rfcdest, "RFC destination
rfcoptions TYPE rfcdes-rfcoptions, "Options of RFC destination
rfcdoc1 TYPE rfcdoc-rfcdoc1, "Description 1 of RFC destination
END OF ty_dest.

DATA:
lt_dest TYPE STANDARD TABLE OF ty_dest.

SELECT
sys~name,
sys~testsystem,
sys~rfcdest,
rfcdes~rfcoptions,
rfcdoc~rfcdoc1
FROM
ecsd_def AS def
LEFT OUTER JOIN ecsd_sys AS sys ON sys~name = def~name
LEFT OUTER JOIN rfcdes AS rfcdes ON sys~rfcdest = rfcdes~rfcdest
LEFT OUTER JOIN rfcdoc AS rfcdoc on rfcdes~rfcdest = rfcdoc~rfcdest
INTO CORRESPONDING FIELDS OF TABLE @lt_dest
WHERE rfcdoc~rfclang = 'D' OR rfcdoc~rfclang IS NULL
ORDER BY def~name.

CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = 'C:\Users\YourName\dest.csv'
filetype = 'ASC'
write_field_separator = 'X'
TABLES
data_tab = lt_dest
EXCEPTIONS
others = 1.

"-End-------------------------------------------------------------------

 
Labels in this area