ZBC400_04_TEST3

 SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L1S31 {font-style: italic;color: #808080;}.L1S32 {color: #3399FF;}.L1S33 {color: #4DA619;}.L1S52 {color: #0000FF;}REPORT  ZBC400_04_TEST3.tables: spfli,sflight.*data:begin of wa_sflight,*      carrid type sflight-carrid,*      connid type sflight-connid,*      fldate type sflight-fldate,*      seatsmax type sflight-seatsmax,*      seatsocc type sflight-seatsocc,*      percentage type p DECIMALS 2,*     end of wa_sflight.**data it_sflight type table of sflight  WITH HEADER LINE.PARAMETERS:pa_ca type sflight-carrid.SELECT-OPTIONS:so_co FOR sflight-connid.INITIALIZATION.pa_ca = 'LH'.AT SELECTION-SCREEN.AUTHORITY-CHECK OBJECT 'S_CARRID'    ID 'CARRID' FIELD pa_ca    ID 'ACTVT'  FIELD '03'.  IF sy-subrc <> 0.    MESSAGE 'No authorization' TYPE 'E'.  ENDIF.START-OF-SELECTION.SELECT * FROM sflight INTO TABLE it_sflight  WHERE carrid = pa_ca and        connid in so_co.***CALL FUNCTION 'ZBC400_04_PERCENTAGE'*  EXPORTING*    p_carrid         = pa_ca*    p_connid         = pa_co*  tables*    it_sflight       = it_sflight          .LOOP AT it_sflight.*  wa_sflight-percentage = ( it_sflight-seatsocc / it_sflight-seatsmax ) * 100.   write:/ it_sflight-carrid,          it_sflight-connid.*          it_sflight-seatsmax,*          wa_sflight-percentage.ENDLOOP.