ITS URGENT : chek box in out put list

Question

Hi all ,
  my requirement is i have provided Reject Button in application tool bar  of out put list in  report . when pressing reject button, what r the records selected that can be saved as Reject status . (Table zvendors having field status.)                                                                                Here i am populating check box for each record in the out put list .
PLS SEND ME THE CODE .
HERE I AM USING THE CODE ......
DATA: BEGIN OF I_SUMMARY OCCURS 0,
      SELECT(1),
      SUB_DATE LIKE ZZKIOSKACT-REQDT,
      TYPE     LIKE ZZSVENDOR-VTYPE,
      APPNO LIKE ZZSVENDOR-APPNO,
      NAME1 LIKE ZZSVENDOR-NAME1,
      NAME2 LIKE ZZSVENDOR-NAME2,
      VENDOR(50),
      STATUS LIKE ZZSVENDOR-VMCREAT,
      STAT_DATE LIKE ZZKIOSKACT-REQDT,
      VENDORID LIKE ZZSVENDOR-VENDOR,
      EPROCURENUM LIKE ZZSVENDOR-EPROCURENUM,
      CRM_ORDER_NUM LIKE ZZSVENDOR-CRM_ORDER_NUM,           " added by nagendra
      VENDOR_UPD_DAT(10) , "LIKE ZZKIOSKACT-REQDT,
      VENDOR_UPD_TIM(10),
      END OF I_SUMMARY.
DATA: BEGIN OF C_POS1,
     VLIN_START   TYPE I     VALUE 1,    " vertical line
     STPOS_SEL    TYPE I     VALUE 2,  "starting position
     LEN_SEL      TYPE I     VALUE 3,    "length of field
     VLIN_TYPE    TYPE I     VALUE 6,
     STPOS_TYPE   TYPE I     VALUE 7,
     LEN_TYPE     TYPE I     VALUE 20,
     VLIN_ESV     TYPE I     VALUE 22,
     STPOS_ESV    TYPE I     VALUE 23,
     LEN_ESV      TYPE I     VALUE 10,
     VLIN_APP     TYPE I     VALUE 42,
     STPOS_APP    TYPE I     VALUE 43,
     LEN_APP      TYPE I     VALUE 16,
     VLIN_SUBDATE TYPE I     VALUE 59,
     STPOS_SUBDATE TYPE I    VALUE 60,
     LEN_SUBDATE  TYPE I     VALUE 12,
     VLIN_VENDOR  TYPE I     VALUE 71,
     STPOS_VENDOR TYPE I     VALUE 72,
     LEN_VENDOR   TYPE I     VALUE 50,
     VLIN_STAT    TYPE I     VALUE 130,
     STPOS_STAT   TYPE I     VALUE 131,
     LEN_STAT     TYPE I     VALUE 20,
     VLIN_STATDATE TYPE I    VALUE 156,
     STPOS_STATDATE TYPE I   VALUE 157,
     LEN_STATDATE TYPE I     VALUE 10,
     VLIN_VENUPDAT TYPE I    VALUE 169,
     STPOS_VENUPDAT TYPE I   VALUE 170,
     LEN_VENUPDAT TYPE I     VALUE 12,
     VLIN_VENUPTIM TYPE I    VALUE 185,
     STPOS_VENUPTIM TYPE I   VALUE 186,
     LEN_VENUPTIM TYPE I     VALUE 12,
     VLIN_END     TYPE I     VALUE 199,
    END OF C_POS1,
write statement
  LOOP AT I_SUMMARY.
    LINECOUNT = SY-TABIX MOD 2.
    IF LINECOUNT = 1.
      FORMAT COLOR COL_NORMAL INTENSIFIED ON.
    ELSE.
      FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
    ENDIF.
    WRITE AT: /C_POS1-VLIN_START  SY-VLINE.
    WRITE AT C_POS1-STPOS_SEL     SELECT     AS CHECKBOX.                "I_SUMMARY-SELECT
    WRITE AT:  C_POS1-VLIN_TYPE SY-VLINE.
    WRITE AT C_POS1-STPOS_TYPE(C_POS1-LEN_TYPE) I_SUMMARY-VENDORID
                                         CENTERED.
    WRITE AT:  C_POS1-VLIN_ESV SY-VLINE.
    WRITE AT C_POS1-STPOS_ESV(C_POS1-LEN_ESV) I_SUMMARY-CRM_ORDER_NUM
                                NO-ZERO CENTERED.
    WRITE AT:  C_POS1-VLIN_APP SY-VLINE.
    WRITE AT   C_POS1-STPOS_APP(C_POS1-LEN_APP) I_SUMMARY-APPNO
                             NO-ZERO USING NO EDIT MASK CENTERED.
    WRITE AT:  C_POS1-VLIN_SUBDATE SY-VLINE.
    WRITE AT   C_POS1-STPOS_SUBDATE(C_POS1-LEN_SUBDATE)
                                                    I_SUMMARY-SUB_DATE.
    WRITE AT:  C_POS1-VLIN_VENDOR SY-VLINE.
    WRITE AT   C_POS1-STPOS_VENDOR(C_POS1-LEN_VENDOR)
                                                    I_SUMMARY-VENDOR.
   WRITE AT: C_POS1-VLIN_STATDATE SY-VLINE.
    WRITE AT C_POS1-STPOS_STATDATE(C_POS1-LEN_STATDATE)
                                            I_SUMMARY-STAT_DATE.
    WRITE AT:  C_POS1-VLIN_VENUPDAT  SY-VLINE.
    IF NOT I_SUMMARY-VENDOR_UPD_DAT IS INITIAL.
      DATA : V_DATS(10).
      CLEAR V_DATS.
      CONCATENATE
           I_SUMMARY-VENDOR_UPD_DAT+4(2)
           I_SUMMARY-VENDOR_UPD_DAT+6(2)
           I_SUMMARY-VENDOR_UPD_DAT+0(4)
           INTO V_DATS SEPARATED BY '/'.
      WRITE AT   C_POS1-STPOS_VENUPDAT(C_POS1-LEN_VENUPDAT)
                 V_DATS .
    ELSE.
      I_SUMMARY-VENDOR_UPD_DAT = ' '.
      WRITE AT   C_POS1-STPOS_VENUPDAT(C_POS1-LEN_VENUPDAT)
                 I_SUMMARY-VENDOR_UPD_DAT USING NO EDIT MASK .
    ENDIF.
    WRITE AT: C_POS1-VLIN_VENUPTIM SY-VLINE.
    WRITE AT C_POS1-STPOS_VENUPTIM(C_POS1-LEN_VENUPTIM)
                                            I_SUMMARY-VENDOR_UPD_TIM.
    WRITE AT: C_POS1-VLIN_END SY-VLINE.
  ENDLOOP.
Edited by: nagendra k on Feb 24, 2008 5:27 AM
Edited by: nagendra k on Feb 25, 2008 5:13 AM

Answer 1

CASE sy-ucomm.
    WHEN 'REJECT'.
      gv_chk = space.
      DO gv_lines TIMES.
        READ LINE sy-index FIELD VALUE gv_chk.  
         IF gv_chk = 'X'.
           Statements to Save the Record.
         ENDIF.
      ENDDO.
  ENDCASE.
Here gv_chk is a character variable to hold the status of check box for each line.
gv_lines hold the number of records.
awrd points if useful
Bhupal