Regarding ALV

[Former Member]

Hi Abap Gurus,

i have displayed the ALV report out put with the help of FM i.e "REUSE_ALV_GRID_DISPLAY". in that report output first column is the "CHECKBOX " . if i select some rows by checking that check box and i am supposed to click one button on the application tool bar (User-Command EVENT). is it possible to make check box value 'X' in the final internal table for the selected lines in the report output.. ? please send your valuable suggestions to me

Thanks

Mohan

[Former Member]

Hi Abap Gurus,

i have displayed the ALV report out put with the help of FM i.e "REUSE_ALV_GRID_DISPLAY". in that report output first column is the "CHECKBOX " . if i select some rows by checking that check box and i am supposed to click one button on the application tool bar (User-Command EVENT). is it possible to make check box value 'X' in the final internal table for the selected lines in the report output.. ? please send your valuable suggestions to me

Thanks

Mohan

[Former Member]

Hi,

It's Very Simple use CHECK_CHANGED_DATA method.

DATA : REF1 TYPE REF TO CL_GUI_ALV_GRID.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = REF1.

CALL METHOD REF1->CHECK_CHANGED_DATA.

Now check ur Internal table.

Salil...

[Former Member]

Hi Salil,

it is working .. many many thanks to you.. right now in which company you are working?

[venkat_o]

Hi Krishna Mohan, Here is the sample program link which is suitable for your requirement.

[Program link|http://www.sapdev.co.uk/reporting/alv/alvgrid_rowsel.htm]

Thanks Venkat

[Former Member]

hey u can see this code

where ucomm value is passed

REPORT Z_SELECT_SCHEDULEDJOB_1.

INCLUDE Z_RAGI_SJ_TOP.

TYPE-POOLS: SLIS.

DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

L_LAYOUT TYPE SLIS_LAYOUT_ALV,

X_EVENTS TYPE SLIS_ALV_EVENT,

IT_EVENTS TYPE SLIS_T_EVENT.

DATA: BEGIN OF ITAB OCCURS 0,

VBELN LIKE VBAK-VBELN,

CHK(1),

INPUT(10) TYPE C,

END OF ITAB.

SELECT JOBNAME JOBCOUNT SDLSTRTDT FROM TBTCO INTO CORRESPONDING FIELDS OF TABLE IT_JOB WHERE RELUNAME = P_USER AND STATUS = 'S'.

X_FIELDCAT-FIELDNAME = 'SELECT'.

X_FIELDCAT-TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 1.

X_FIELDCAT-INPUT = 'X'.

X_FIELDCAT-EDIT = 'X'.

X_FIELDCAT-CHECKBOX = 'X'.

X_FIELDCAT-SELTEXT_L = 'Select'.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'JOBNAME'.

X_FIELDCAT-REF_TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 2.

X_FIELDCAT-SELTEXT_L = 'JOBNAME'.

APPEND X_FIELDCAT TO IT_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'JOBCOUNT'.

X_FIELDCAT-SELTEXT_L = 'JOBCOUNT'.

X_FIELDCAT-TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 3.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'SDLSTRTDT'.

X_FIELDCAT-SELTEXT_L = 'start date'.

X_FIELDCAT-TABNAME = 'IT_JOB'.

X_FIELDCAT-COL_POS = 4.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'ZJOB'

I_CALLBACK_USER_COMMAND = 'Z_USER_COMMAND'

• I_CALLBACK_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

• I_GRID_TITLE =

• I_GRID_SETTINGS =

IS_LAYOUT = L_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

• IT_EVENTS =

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_JOB

• EXCEPTIONS

• PROGRAM_ERROR = 1

• OTHERS = 2

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

• &---------------------------------------------------------------------

*& Form ZJOB

&----

---

• text

----

---

• -->RT_EXTAB text

----

---

FORM ZJOB USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ICON1'.

ENDFORM. "ZJOB.

&----

---

*& Form Z_USER_COMMAND

&----

---

• text

----

---

• -->PU_UCOMM text

----

---

FORM Z_USER_COMMAND USING PU_UCOMM LIKE SY-UCOMM

PU_SELFIELD TYPE SLIS_SELFIELD.

data: l_temp(1) type c.

CASE PU_UCOMM.

WHEN 'CHANGEJOB'.

DATA L_VAR TYPE NUM VALUE 00.

DATA REF1 TYPE REF TO CL_GUI_ALV_GRID.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = REF1.

CALL METHOD REF1->CHECK_CHANGED_DATA.

*CASE PU_SELFIELD-FIELDNAME.

*WHEN 'LIFNR'.

*W_LIFNR1 = PU_SELFIELD-VALUE.

LOOP AT IT_JOB INTO WA_JOB WHERE SELECT EQ 'X'.

L_VAR = L_VAR + 1.

IF L_VAR GT 1.

MESSAGE 'only one job can be selected in change mode' TYPE 'E'.

ELSE.

L_Temp = wa_job-select.

ENDIF.

ENDLOOP.

*SET PARAMETER ID 'LIF' FIELD W_LIFNR1.

*CALL TRANSACTION 'XK03'.

• BREAK-POINT.

SUBMIT SAPLBTCH USING SELECTION-SCREEN '3000' .

• using wa_job-jobname and return.

*SET PARAMETER ID 'LIF' FIELD W_LIFNR1.

*CALL TRANSACTION 'XK03'.

*EXIT.

WHEN 'DELETEJOB'.

BREAK-POINT.

ENDCASE.

ENDFORM.

cheers

s.janagar

[Former Member]

Hi Jana,

Many Many Thanks to you. it is working perfectly