Select CHECKBOX

• Create Date   : 2010-07-04
• Change Date : 2010-07-04

---

잡담 -ㅂ-;

오늘 좀 글을 많이 쓰는듯... 다~ 입에 풀칠 할라고 그런돠

---

간략히 소스를 보자... GUI Status를 생성해야 한다.

  data : box type c,
       lines type i,
       num type c.

at USER-COMMAND.
  case sy-ucomm.
    when 'READ'.
      set pf-status 'S000' EXCLUDING 'READ'.
      box = space.
      DO lines times.
        read line sy-index field value box.
        if box = 'X'.
          write :/ 'selected:', num.
          box = space.
          modify line sy-index
            field value box
            field format box input off "don't input
              num color 6 inverse on.
        endif.
      enddo.
  endcase.

start-of-selection.

set pf-status 'S000'.

do 3 times.
  num = sy-index.
  write :/ box as checkbox, 'line:', num.
  hide : box, num.
enddo.

lines = sy-linno.