Main Program For An Include

REPORT ztest.

*---internal table declaration
data: begin of itab occurs 0,
mainprogram type char40,
end of itab .
*-----data declaration
data: NUMBER_OF_MAINPROGRAMS type char3.

*---selection screen data
parameters:p_includ type char40.

*---start of selection

start-of-selection.

CALL FUNCTION 'RS_GET_MAINPROGRAMS'
EXPORTING
name = p_includ
IMPORTING
NUMBER_OF_MAINPROGRAMS = NUMBER_OF_MAINPROGRAMS
TABLES
mainprograms = itab
EXCEPTIONS
CANCELLED = 1.

*----display result
write:/ 'number of main programs is:' , NUMBER_OF_MAINPROGRAMS.
loop at itab.
write:/ 'the main program for this include is:' , itab-mainprogram.
endloop.

the selection screen output is like this:



and the output is like this :