Help in interactive report

Question

i m facing another problem in interactive report .
as i m displaying records in secondary index with check box in front of them .
now i want disply the records against these selected check box , how i would come to know which check box are selected , to process these records further .
Please reply .
Mahesh.

Answer 1

Hi Mahesh ,
i am sending an example go through it.
REPORT  test.
DATA:
  W_CHECKBOX  TYPE C.                  " Check box
*" Declaration of Structure to hold Flight information.
DATA:
  BEGIN OF FS_SPFLI,
    CARRID   TYPE   SPFLI-CARRID,      " Carrier Id
    CONNID   TYPE   SPFLI-CONNID,      " Connection Id
  END OF FS_SPFLI.
*" Declaration of Structure to hold Seats Occupancy information
DATA:
  BEGIN OF FS_SFLIGHT,
    CARRID     TYPE   SFLIGHT-CARRID,  " Carrier ID
    CONNID     TYPE   SFLIGHT-CONNID,  " Connection ID
    FLDATE     TYPE   SFLIGHT-FLDATE,  " Flight Date
    SEATSMAX   TYPE   SFLIGHT-SEATSMAX," Maximum Seats
    SEATSOCC   TYPE   SFLIGHT-SEATSOCC," Occupied Seats
  END OF FS_SFLIGHT.
DATA:
  BEGIN OF FS_SSFLIGHT,
    CARRID     TYPE   SFLIGHT-CARRID,  " Carrier ID
    CONNID     TYPE   SFLIGHT-CONNID,  " Connection ID
  END OF FS_SSFLIGHT.
*" Tables Declaration to hold Flight information
DATA:
  T_SSPFLI  LIKE  STANDARD  TABLE  OF  FS_SPFLI.
*" Tables Declaration to hold Seats Occupancy information
DATA:
  T_SFLIGHT  LIKE  STANDARD  TABLE  OF  FS_SFLIGHT.
DATA:
  T_SSFLIGHT  LIKE  STANDARD TABLE OF FS_SSFLIGHT.
*" START-OF-SELECTION  EVENT..........................................
START-OF-SELECTION.
IMPORT  T_SSPFLI TO T_SSPFLI  FROM  MEMORY ID'YH630'.
PERFORM  DISPLAY_SFLIGHT.
*" END-OF-SELECTION  EVENT..........................................
END-OF-SELECTION.
SET PF-STATUS 'BOOKING'.
*" AT USER-COMMAND EVENT..........................................
AT USER-COMMAND.
  CASE SY-UCOMM.
    WHEN 'BOOKING'.
      PERFORM BOOKING.
      EXPORT T_SSFLIGHT FROM T_SSFLIGHT  TO  MEMORY ID'YH630'.
      SUBMIT YH630_030502.
  ENDCASE.
     Form  DISPLAY_SFLIGHT
This subroutine displays the SFLIGHT details.                       *
There are no interface parameters to be passed to this subroutine.  *
FORM BOOKING.
  DATA:
    LW_LINES    TYPE  I,               " No of Lines
    LW_LINENO   TYPE  I,               " Line Number
    LW_COUNT    TYPE  I.               " Counter
  DESCRIBE TABLE T_SFLIGHT LINES  LW_LINES.
  DO LW_LINES TIMES.
    READ LINE LW_LINENO
      FIELD VALUE  W_CHECKBOX INTO W_CHECKBOX
        FS_SFLIGHT-CARRID INTO FS_SFLIGHT-CARRID
        FS_SFLIGHT-CONNID INTO FS_SFLIGHT-CONNID.
    IF W_CHECKBOX EQ 'X'.
      ADD 1 TO LW_COUNT.
      FS_SSFLIGHT-CARRID = FS_SFLIGHT-CARRID.
      FS_SSFLIGHT-CONNID = FS_SFLIGHT-CONNID.
      APPEND FS_SSFLIGHT TO T_SSFLIGHT.
      CLEAR T_SFLIGHT.
    ENDIF.                             " IF W_CHECKBOX.....
    ADD 1 TO LW_LINENO.
  ENDDO.                               " DO LW_LINES....
ENDFORM.
     Form  DISPLAY_SFLIGHT
This subroutine displays the SFLIGHT details.                       *
There are no interface parameters to be passed to this subroutine.  *
FORM DISPLAY_SFLIGHT .
  SELECT  CARRID                       " Carrier ID
          CONNID                       " Connection ID
          FLDATE                       " Flight date
          SEATSMAX                     " Maximum Seats
          SEATSOCC                     " Seats occupied
  FROM    SFLIGHT
  INTO    TABLE   T_SFLIGHT
  FOR ALL ENTRIES IN T_SSPFLI
  WHERE   CARRID  EQ  T_SSPFLI-CARRID   AND
          CONNID  EQ  T_SSPFLI-CONNID.
  WRITE:/10 TEXT-001,
         30 TEXT-002,
         50 TEXT-003,
         70 TEXT-004,
         90 TEXT-005.
  SKIP.
  IF SY-SUBRC EQ 0.
    LOOP AT T_SFLIGHT  INTO FS_SFLIGHT.
      WRITE: / W_CHECKBOX AS CHECKBOX.
      WRITE:10 FS_SFLIGHT-CARRID,
            30 FS_SFLIGHT-CONNID,
            50 FS_SFLIGHT-FLDATE,
            70 FS_SFLIGHT-SEATSMAX,
            90 FS_SFLIGHT-SEATSOCC.
    ENDLOOP.                           " LOOP AT......
  ELSE.
    MESSAGE  ' NO DATA FOUND'  TYPE  'I'.
  ENDIF.                               " IF SY-SUBRC EQ 0
ENDFORM.                               " DISPLAY_SFLIGHT