REPORT  z12_002                                                     .
DATA: BEGIN OF gt_connid OCCURS 0,
          connid             TYPE sflight-connid,
        END   OF gt_connid.
DATA : gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
DATA : gt_dynpread         LIKE dynpread   OCCURS 0 WITH HEADER LINE.

PARAMETERS: p_carrid LIKE sflight-carrid,
            p_connid LIKE sflight-connid.

INITIALIZATION.

AT SELECTION-SCREEN  ON VALUE-REQUEST FOR p_connid.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname             = sy-cprog
      dynumb             = sy-dynnr
      request            = 'A'
      translate_to_upper = 'X'
    TABLES
      dynpfields         = gt_dynpread.

  READ TABLE gt_dynpread  WITH KEY fieldname = 'P_CARRID'.


  SELECT DISTINCT connid
    INTO TABLE gt_connid
    FROM sflight
    WHERE carrid = gt_dynpread-fieldvalue.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield     = 'P_CONNID'
      dynpprog     = sy-cprog
      dynpnr       = sy-dynnr
      window_title = 'CONNID'
      value_org    = 'S'
    TABLES
      value_tab    = gt_connid
      return_tab   = gt_rtntab.

  READ TABLE gt_rtntab INDEX 1.

  p_connid = gt_rtntab-fieldval.