DATA: BEGIN OF it_param_values OCCURS 0,
z(2) TYPE c,
line LIKE raldb-infoline,
END OF it_param_values.
*Output selection Parameters
CALL FUNCTION 'RS_COVERPAGE_SELECTIONS'
EXPORTING
report = sy-cprog
variant = space
* NO_IMPORT = ' '
TABLES
infotab = it_param_values
EXCEPTIONS
error_message = 1
variant_not_found = 2
others = 3.
z(2) TYPE c,
line LIKE raldb-infoline,
END OF it_param_values.
*Output selection Parameters
CALL FUNCTION 'RS_COVERPAGE_SELECTIONS'
EXPORTING
report = sy-cprog
variant = space
* NO_IMPORT = ' '
TABLES
infotab = it_param_values
EXCEPTIONS
error_message = 1
variant_not_found = 2
others = 3.
IF sy-subrc = 0.
LOOP AT it_param_values.
WRITE: / it_param_values-line.
TRANSFER it_param_values-line TO p_file.
ENDLOOP.
ENDIF.
No comments:
Post a Comment