안녕하세요!

스크린1000 에서 체크박스를 누를때마다 2개의 필드에 값과 입력상태가 교차되게 하려는데요.

필드심벌을 이용해서 밑에 녹색바탕으로 된 부분을 제일 밑에 주석문처럼 바꿔줄수는 없을까요?

즐거운 하루 되세요^^!

* 필드심벌 꺽쇠가 안보여서 {}로 표기했습니다.

 

AT SELECTION-SCREEN.
  PERFORM u_checkbox_1.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

FORM u_checkbox_1 .

  FIELD-SYMBOLS: {fs1}   TYPE ANY,
                 {fs2}  TYPE ANY.
  DATA: l_checked TYPE char10 VALUE 'CHECKED'.
  CLEAR: p_fd1, p_fd2.

  LOOP AT SCREEN.
    IF p_fall = 'X'. 

      ASSIGN 'P_FD1'  TO {fs1}.
      ASSIGN 'P_FD2'  TO {fs2}.
      p_fd1 = 'CHECKED'.
      p_fd2 = 'UNCHECKED'.
    ELSE.
      ASSIGN 'P_FD2'  TO .
      ASSIGN 'P_FD1'  TO .
      p_fd1 = 'UNCHECKED'.
      p_fd2 = 'CHECKED'.
    ENDIF.

    IF screen-name EQ .
      screen-input = 0.
    ENDIF.
    IF screen-name EQ .
      screen-input = 1.
    ENDIF.

*    {fs1}   = 'CHECKED'.
*    {fs2}   = 'UNCHECKED'.

    MODIFY SCREEN.
  ENDLOOP.

ENDFORM.                    " checkbox_1