Tuesday, April 15, 2014

ABAP - SELECT-OPTIONS FOR



  REPORT  ZMYSAPLIBRARY.

TABLESsflight.

DATABEGIN OF t_report OCCURS 3,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
END OF t_report.

SELECT-OPTIONS s_carrid FOR sflight-carrid.
SELECT-OPTIONS s_connid FOR sflight-connid.

SELECT FROM sflight
WHERE carrid IN s_carrid AND
connid IN s_connid.
  t_report-carrid sflight-carrid.
  t_report-connid sflight-connid.
  t_report-fldate sflight-fldate.
  t_report-seatsmax sflight-seatsmax.
  APPEND t_report.
ENDSELECT.
IF sy-subrc NE 0"sy-subrc = return code
  WRITE 'Data not found'.
ENDIF.

LOOP AT t_report.
  skip"comment:Go to next line
  WRITE t_report-carrid.
  WRITE t_report-connid.
  WRITE t_report-fldate.
  WRITE t_report-seatsmax.
ENDLOOP.

No comments:

Post a Comment