Basic Structure Demo

REPORT    zstr3_09.
TYPES:  BEGIN  OF  ty_sfli,
                carrid  TYPE  sflight-carrid,
                connid  TYPE  sflight-connid,
                fldate  TYPE  sflight-fldate,
                seatsmax  TYPE  sflight-seatsmax,
                seatsocc  TYPE  sflight-seatsocc,
            end  of  ty_sfli.
DATA:  itab  TYPE  TABLE  OF  ty_sfli,    seatsfree  TYPE  i,
            wa  LIKE  LINE  OF  itab.
SELECT  carrid  connid  fldate  seatsmax  seatsocc  FROM  sflight  INTO  CORRESPONDING  FIELDS  OF  TABLE  itab.
    if  sy-subrc  <>  0.
MESSAGE  'No  Records  Found'  TYPE  'I'.
ELSE.
LOOP  AT  itab  INTO  wa.
    seatsfree  =  wa-seatsmax  -  wa-seatsocc.
    WRITE:/  wa-carrid,
    wa-connid,
    wa-fldate,
    wa-seatsmax,
    wa-seatsocc,
    seatsfree.
ENDLOOP.
ENDIF.