table control

[Former Member]

i want to add a custom button for select and deselect all,

for that i am writing a case statement for okcode in PAI and when the okcode is equal to that value i do the LOOP AT SCREEN code

but it is not working please help

[Former Member]

hi

can you send the code you have written for selecting & deselecting?

we can see where the error was made.

thx

pavan

[Former Member]

hi,

declare ind in table control index

and just follow this code

CASE SY-UCOMM.

WHEN 'SELECT'.

LOOP AT ITAB.

IND = 'X'.

ITAB-CHECK = IND.

MODIFY ITAB TRANSPORTING CHECK.

ENDLOOP.

WHEN 'DESEL'.

LOOP AT ITAB.

IND = ' ' .

ITAB-CHECK = IND.

MODIFY ITAB TRANSPORTING CHECK.

ENDLOOP.

ENDCASE.

[Former Member]

Hi,

Design the GUI status and give Fun codes for those buttons and write the code as below;

&----

---

*& Form select_all

&----

---

• Select All objects

----

---

FORM select_all .

CLEAR v_lisel.

DO.

READ LINE sy-index FIELD VALUE v_chk.

IF sy-subrc NE 0.

EXIT.

ENDIF.

READ LINE sy-index FIELD VALUE sy-lisel INTO v_lisel.

IF v_lisel+2(1) = ' ' AND sy-index GT 5.

v_lisel+2(1) = 'X'.

MODIFY LINE sy-index FIELD VALUE sy-lisel FROM v_lisel.

ENDIF.

ENDDO.

ENDFORM. " select_all

&----

---

*& Form deselect_all

&----

---

• Deselect All Objects

----

---

FORM deselect_all .

CLEAR v_lisel.

DO.

READ LINE sy-index FIELD VALUE v_chk.

IF sy-subrc NE 0.

EXIT.

ENDIF.

READ LINE sy-index FIELD VALUE sy-lisel INTO v_lisel.

IF v_lisel+2(1) = 'X'.

v_lisel+2(1) = ' '.

MODIFY LINE sy-index FIELD VALUE sy-lisel FROM v_lisel.

ENDIF.

ENDDO.

ENDFORM. " deselect_all

Regards,

Anji

[Former Member]

yes your code will not work,

go to your code where you have written LOOP AT SCREEN press F1 there you will find that this code only works in the PBO

you can do like this you can either paste the code in PBO or if you want to do it more systematically then you shoul set any flag variable there (IN PAI) then base on that value check condition in PBO and LOOP AT SCREEN

Thanks