Suchanfrage aus Dynpro

Code: Alles auswählen.

REPORT  z_tmp.
PARAMETERS: p_carrid TYPE sflight-carrid,
            p_connid type sflight-connid.

DATA: r_carrid TYPE RANGE OF sflight-carrid,
      l_carrid LIKE LINE OF r_carrid.
DATA: r_connid TYPE RANGE OF sflight-carrid,
      l_connid LIKE LINE OF r_carrid.

DATA: zaehler TYPE i.

START-OF-SELECTION.
  IF NOT p_carrid IS INITIAL.
    l_carrid-sign = 'I'.
    l_carrid-option = 'EQ'.
    l_carrid-low = p_carrid.
    APPEND l_carrid TO r_carrid.
  ENDIF.
  IF NOT p_connid IS INITIAL.
    l_connid-sign = 'I'.
    l_connid-option = 'EQ'.
    l_connid-low = p_carrid.
    APPEND l_carrid TO r_carrid.
  ENDIF.

  SELECT COUNT( * ) FROM sflight INTO zaehler WHERE carrid IN r_carrid and
                                                    connid in r_connid.
  WRITE:/ zaehler..

Code: Alles auswählen.

REPORT  z_hip_tmp_008.
PARAMETERS: p_carrid TYPE sflight-carrid,
            p_connid TYPE sflight-connid.

DATA: it_sel TYPE STANDARD TABLE OF char72,
      wa_sel TYPE char72.

DATA: zaehler TYPE i.

START-OF-SELECTION.
  IF NOT p_carrid IS INITIAL.
    wa_sel = 'CARRID = p_carrid'.
    APPEND wa_sel TO it_sel.
  ENDIF.
  IF NOT p_connid IS INITIAL.
    wa_sel = 'CONNID = p_connid'.
    APPEND wa_sel TO it_sel.
  ENDIF.

* richtig
  SELECT COUNT( * ) FROM sflight INTO zaehler WHERE (it_sel).
  WRITE:/ zaehler.