REPORT Z15_033.
DATA : box(1) TYPE c, lines TYPE i,
        num(1) TYPE c.

SET PF-STATUS 'CHECK'.

DO 5 TIMES.
        num = sy-index.
        WRITE: / box AS CHECKBOX, '라인 번호: ', num.
        HIDE: box, num.
ENDDO.
lines = sy-linno.

TOP-OF-PAGE.
        WRITE  'Select some checkboxes'.
        ULINE.

AT USER-COMMAND.
        CASE sy-ucomm.
                WHEN 'READ'.
                SET PF-STATUS 'CHECK' EXCLUDING 'READ'.
                box = space.
                DO lines TIMES.
                        READ LINE sy-index FIELD VALUE box. "현재라인 READ
                        IF box = 'X'.
                                WRITE: / '라인번호', num, '이 선택되었습니다'.
                                box = space.
                        MODIFY LINE sy-index
                                FIELD VALUE  box
                                FIELD FORMAT box INPUT OFF "입력방지
                                        num COLOR 6 INVERSE ON. "색상과 반전
                        ENDIF.
                ENDDO.
        ENDCASE.