안녕하세요!
스크린1000 에서 체크박스를 누를때마다 2개의 필드에 값과 입력상태가 교차되게 하려는데요.
필드심벌을 이용해서 밑에 녹색바탕으로 된 부분을 제일 밑에 주석문처럼 바꿔줄수는 없을까요?
즐거운 하루 되세요^^!
* 필드심벌 꺽쇠가 안보여서 {}로 표기했습니다.
AT SELECTION-SCREEN.
PERFORM u_checkbox_1.
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FORM u_checkbox_1 .
FIELD-SYMBOLS: {fs1}
{fs2}
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}
* {fs2}
MODIFY SCREEN.
ENDLOOP.
ENDFORM. " checkbox_1
ASSIGN할때 ' '이거 안해주셔도 되지 않나요?
ASSIGN P_FD1 TO {FS1}
이렇게만 하셔도 될텐데