Tuesday, April 15, 2014

ABAP - SELECT-OPTIONS FOR



  REPORT  ZMYSAPLIBRARY.

TABLES: sflight.

DATA: BEGIN 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