Clear PARAMETERS field

Question

Hi. I have a small question. I have a PARAMETERS on my SELECTION-SCREEN. I'd like to set them emty when program ends and backs to SELECTION-SCREEN. How to do this? Greetings. P.

Answer 1

I try but there's no effect. Maybe it's connected with my program structure below.
REPORT zgr_package .
TABLES: zpackage.
DATA: adrnr TYPE adrnr.
DATA: internalname TYPE rs38l_fnam.
DATA: control_parameters  TYPE ssfctrlop.
INCLUDE <ICON>.
SELECTION-SCREEN begin of block b1 with frame.
  PARAMETERS werks LIKE zpackage-werks OBLIGATORY.
  PARAMETERS datum LIKE zpackage-datum  OBLIGATORY.
  PARAMETERS vendor LIKE zpackage-vendor  OBLIGATORY.
  PARAMETERS pack LIKE zpackage-pack  OBLIGATORY.
  PARAMETERS note LIKE zpackage-note.
SELECTION-SCREEN END OF BLOCK b1 .
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
  SELECTION-SCREEN COMMENT 01(20) v_icon FOR FIELD print.
  PARAMETERS: print as checkbox.
SELECTION-SCREEN END OF BLOCK b2.
INITIALIZATION.
  GET PARAMETER ID 'WRK' FIELD werks.
  datum = sy-datum.
  v_icon = '@2P@'. "icon_test.
START-OF-SELECTION.
  AUTHORITY-CHECK OBJECT 'M_BEST_WRK' ID 'WERKS' FIELD werks.
  IF sy-subrc NE 0.
    MESSAGE e398(00) WITH text-001.
  ELSE.
    SELECT SINGLE * FROM zpackage WHERE
    werks = werks AND pack = pack.
    IF sy-subrc = 0.
      MESSAGE i398(00) WITH text-002.
    ELSE.
      zpackage-werks = werks.
      zpackage-datum = datum.
      zpackage-vendor = vendor.
      zpackage-pack = pack.
      zpackage-uname = sy-uname.
      zpackage-note = note.
      IF print = 'X'.
        PERFORM PREPARE_ADDR.
        PERFORM PRINT_DOCUMENT.
      ENDIF.
      INSERT zpackage.
      MESSAGE s398(00) WITH text-003.
    ENDIF.
  ENDIF.
END-OF-SELECTION.
  CLEAR vendor.
  CLEAR note.
  pack = ''.