Multiple Line - Interactive List

TYPES: BEGIN OF STR,
GP,
PT TYPE INT2,
END OF STR.

DATA ITAB TYPE STANDARD TABLE OF STR.
DATA WA TYPE STR.

WA-GP = 'A'.WA-PT = 10.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 30.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 50.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 70.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 90.APPEND WA TO ITAB.

WA-GP = 'B'.WA-PT = 20.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 40.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 60.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 80.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 100.APPEND WA TO ITAB.

SORT ITAB BY GP.
DATA CB.
DATA: WAS_USED.
LOOP AT ITAB INTO WA.
WRITE: / CB AS CHECKBOX,WAS_USED,WA-GP,WA-PT.
HIDE: WA-GP,WA-PT.
ENDLOOP.



AT PF6.
DO.
CLEAR CB.
READ LINE SY-INDEX FIELD VALUE CB.
IF SY-SUBRC <> 0.
EXIT.
ELSE.
CHECK CB = 'X'.
MODIFY CURRENT LINE:
FIELD VALUE WAS_USED FROM '*' CB FROM SPACE
FIELD FORMAT CB INPUT OFF.
WRITE: / WA-GP, WA-PT.
ENDIF.
ENDDO.