To create a normal interactive report

Question

Hai All!
   i want to create a normal interactive report, in the basic list CARRID should be displayed with checkbox. the detail list should be displayed after selecting the checkboxes & clicking the pushbotton in application toolbar.
plz help me to findout the solution.

Answer 1

Hi smitha,
Report z_sfpfli.
*Data Declarations ...................................................
  Field String fs_spfli                                              *
DATA:
  BEGIN OF fs_spfli,
   carrid LIKE spfli-carrid,           " Airline Code
   connid LIKE spfli-connid,           " Flight Connection Number
   airpfrom LIKE spfli-airpfrom,       " Departure airport
   airpto   LIKE spfli-airpto,         " Destination airport
   deptime  LIKE spfli-deptime,        " Departure time
   arrtime LIKE  spfli-arrtime,        " Arrival time
  END OF fs_spfli.
*Data Declarations ...................................................
  Field String fs_sflight                                           *
DATA:
  BEGIN OF fs_sflight,
   carrid LIKE spfli-carrid,           " Airline Code
   connid LIKE spfli-connid,           " Flight Connection Number
   date LIKE sflight-fldate,           " Flight date
   seatsmax LIKE sflight-seatsmax,     " Maximum capacity in economy
                                       " class
   seatsocc LIKE sflight-seatsocc,     " Occupied seats in economy
                                       " class
  END OF fs_sflight.
   Internal Table To Hold spfli Table Details                       *
DATA:
  t_spfli LIKE
   STANDARD TABLE
     OF fs_spfli.
   Internal Table To Hold sflight Table Details                     *
DATA:
  t_sflight LIKE
   STANDARD TABLE
     OF fs_sflight.
DATA:
  w_checkbox TYPE c,
  w_lines    TYPE i,
  w_currentline TYPE i,
  w_last_line TYPE i.
TOP-OF-PAGE.
  PERFORM top_flight_data.
TOP-OF-PAGE DURING LINE-SELECTION.
  PERFORM top_sflight_data.
                      AT SELECTION-SCREEN EVENT                     *
START-OF-SELECTION.
  PERFORM get_flight_data.
*&      Form  TOP_FLIGHT_DATA
This subroutine DISPLAY to_flight_data                             *
There are no interface parameters to be passed to this subroutine.
FORM top_flight_data .
  SKIP 2.
  FORMAT COLOR 5 ON.
  WRITE:
    /5(15) 'Airline Code'(010),
     (15) 'Flight Connection Number'(011),
     (10) 'Departure airport'(012),
     (10) 'Destination airport'(013),
     (10) 'Departure time'(014),
     (15) 'Arrival time'(015).
  FORMAT COLOR OFF.
  SKIP 2.
ENDFORM.                    " TOP_FLIGHT_DATA
                      END-OF-SELECTION EVENT                        *
END-OF-SELECTION.
  SET PF-STATUS 'MENU'.
  PERFORM display_flight_data.
AT LINE-SELECTION.
  IF sy-lsind EQ 1.
    PERFORM get_sflight_data.
    PERFORM display_sflight_data.
  ENDIF.                               " IF SY-LSIND..
AT USER-COMMAND.
  SET PF-STATUS space.
  CASE sy-ucomm.
    WHEN 'SELECTALL'.
      w_checkbox = 'X'.
      PERFORM modify_checkbox.
    WHEN 'DSELECTALL'.
      w_checkbox = ' '.
      PERFORM modify_checkbox.
    WHEN 'DISPLAY'.
      PERFORM get_sflight_data1 .
  ENDCASE.                             " CASE SY-UCOMM
*&      Form  GET_FLIGHT_DATA
This subroutine  retrieves necessary data from SPFLI                *
There are no interface parameters to be passed to this subroutine.
FORM get_flight_data .
  SELECT carrid                        " Airline Code
         connid                        " Flight Connection Number
         airpfrom                      " Departure airport
         airpto                        " Destination airport
         deptime                       " Departure time
         arrtime                       " Arrival time
   FROM spfli
   INTO TABLE t_spfli.
ENDFORM.                               " GET_FLIGHT_DATA
*&      Form  DISPLAY_FLIGHT_DATA
This subroutine DISPLAY necessary data from SPFLI                  *
There are no interface parameters to be passed to this subroutine.
FORM display_flight_data .
  LOOP AT t_spfli INTO fs_spfli.
    WRITE:
      /02 w_checkbox AS CHECKBOX,
        fs_spfli-carrid   UNDER text-010,
        fs_spfli-connid   UNDER text-011,
        fs_spfli-airpfrom UNDER text-012,
        fs_spfli-airpto   UNDER text-013,
        fs_spfli-deptime  UNDER text-014,
        fs_spfli-arrtime  UNDER text-015.
    HIDE:
        fs_spfli-carrid,
        fs_spfli-connid.
  ENDLOOP.                             " LOOP AT T_SPFLI INTO...
  w_last_line = sy-linno.
ENDFORM.                               " DISPLAY_FLIGHT_DATA
*&      Form  GET_SFLIGHT_DATA
This subroutine  retrieves necessary data from SFLIGHT             *
There are no interface parameters to be passed to this subroutine.
FORM get_sflight_data .
  SELECT carrid                        " Airline Code
         connid                        " Flight Connection Number
         fldate                        " Flight date
         seatsmax                      " Maximum capacity in economy
                                       " class
         seatsocc                      " Occupied seats in economy
                                       " class
  FROM sflight
  INTO TABLE t_sflight
  WHERE carrid EQ fs_spfli-carrid
  AND   connid EQ fs_spfli-connid.
ENDFORM.                               " GET_SFLIGHT_DATA
*&      Form  top_sflight_data
This subroutine to Display to_sflight_data                         *
There are no interface parameters to be passed to this subroutine.
form top_sflight_data .
SKIP 2.
  FORMAT COLOR 3 ON.
  WRITE:
    /1(15)  'Airline Code'(010)   LEFT-JUSTIFIED,
     15(15) 'Flight Connection Number'(011)   LEFT-JUSTIFIED,
     25(15) 'Flight date'(016)    LEFT-JUSTIFIED,
     38(17) 'Maximum capacity'(017) LEFT-JUSTIFIED,
     48(15) 'Occupied seats'(018) LEFT-JUSTIFIED.
  SKIP 2.
  FORMAT COLOR OFF.
endform.                    " top_sflight_data
*&      Form  DISPLAY_SFLIGHT_DATA
This subroutine DISPLAY  necessary data from SFLIGHT                *
There are no interface parameters to be passed to this subroutine.
FORM display_sflight_data .
  LOOP AT t_sflight INTO fs_sflight.
    WRITE:
      / fs_sflight-carrid UNDER TEXT-010,
        fs_sflight-connid UNDER TEXT-011,
        fs_sflight-date UNDER TEXT-016,
        fs_sflight-seatsmax UNDER TEXT-017,
        fs_sflight-seatsocc UNDER TEXT-018.
  ENDLOOP.                             " LOOP AT T_SFLIGHT INTO...
ENDFORM.                               " DISPLAY_SFLIGHT_DATA
*&      Form  GET_SFLIGHT_DATA1
This subroutine  retrieves necessary data from SFLIGHT
There are no interface parameters to be passed to this subroutine.
FORM get_sflight_data1 .
  DATA
     lw_checkbox TYPE c.
  DESCRIBE TABLE t_spfli LINES w_lines.
  DO w_last_line TIMES.
    w_currentline = 2 + sy-index.
    CLEAR:
      w_checkbox,
      t_spfli.
    READ LINE w_currentline FIELD VALUE
       w_checkbox   INTO lw_checkbox.
    IF sy-subrc EQ 0.
      IF lw_checkbox EQ 'X'.
        PERFORM get_sflight_data .
        PERFORM display_sflight_data .
      ENDIF.                           " IF LW_CHECKBOX..
    ENDIF.                             " IF SY-SUBRC..
  ENDDO.                               " DO W_LAST_LINE
ENDFORM.                               " GET_SFLIGHT_DATA1
*&      Form  MODIFY_CHECKBOX
This subroutine  MODIFIES accordingly
There are no interface parameters to be passed to this subroutine.
FORM modify_checkbox .
  CLEAR w_currentline.
  WHILE w_currentline  LE w_last_line.
    READ LINE w_currentline.
    MODIFY LINE w_currentline FIELD VALUE w_checkbox FROM w_checkbox.
    ADD 1 TO w_currentline.
  ENDWHILE.                            " WHILE w_line LE w_last_line.
ENDFORM.                               " MODIFY_CHECKBOX
Regards,
Sravanthi