Source Code Listing
DATA: BEGIN OF MTAB_SEL_OPTIONS OCCURS 0,
FLAG(1) TYPE C,
OLENGTH TYPE X,
LINE LIKE RSVAR-INFOLINE,
END OF MTAB_SEL_OPTIONS.
CALL FUNCTION 'RS_COVERPAGE_SELECTIONS'
EXPORTING
REPORT = 'ZREPORT1' ' Name of current report
VARIANT = ''
NO_IMPORT = 'X'
TABLES
INFOTAB = MTAB_SEL_OPTIONS
EXCEPTIONS
ERROR_MESSAGE = 1
VARIANT_NOT_FOUND = 2
OTHERS = 3.
LOOP AT MTAB_SEL_OPTIONS.
WRITE: / MTAB_SEL_OPTIONS-LINE.
ENDLOOP.
|