ZBC400_02_LOOP

*&---------------------------------------------------------------------*
*& Report ZBC400_02_LOOP
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zbc400_02_loop.

TYPES: ty_cid         TYPE bc400_s_connection-carrid.

PARAMETERS: pa_cid TYPE ty_cid.

DATA: gt_connections TYPE bc400_t_connections,
      gs_connections LIKE LINE OF gt_connections.

TRY.
    CALL METHOD cl_bc400_flightmodel=>get_connections
      EXPORTING
        iv_carrid      = pa_cid
      IMPORTING
        et_connections = gt_connections.
  CATCH cx_bc400_no_data .
    MESSAGE e004(zbc400_2).
  CATCH cx_bc400_no_auth .
    MESSAGE e005(zbc400_2).
ENDTRY.

LOOP AT gt_connections INTO gs_connections.
  WRITE: / gs_connections-carrid,
         gs_connections-connid,
         gs_connections-cityfrom,
         gs_connections-airpfrom,
         gs_connections-cityto,
         gs_connections-airpto,
         gs_connections-fltime,
         gs_connections-deptime,
         gs_connections-arrtime.
ENDLOOP.