실행버튼옆에 버튼 추가

 

 

위와같이 실행버튼 옆에 버튼을 추가하는 방법입니다.

 

[ 샘플코드 ]

1. TYPE-POOLS ICON.
2. TABLES SSCRFIELDS.
3. * 1 ~ 5 (FC01 ~ FC05 까지 가능합니다)
   SELECTION-SCREEN: FUNCTION KEY 1,
                     FUNCTION KEY 2,
                     FUNCTION KEY 3,
                     FUNCTION KEY 4,
                     FUNCTION KEY 5.
4. INITIALIZATION.
     MOVE ''@B_CALC@추가버튼1'' TO SSCRFIELDS-FUNCTXT_01.
     MOVE ''@B_CALC@추가버튼2'' TO SSCRFIELDS-FUNCTXT_02.
     MOVE ''@B_CALC@추가버튼3'' TO SSCRFIELDS-FUNCTXT_03.
     MOVE ''@B_CALC@추가버튼4'' TO SSCRFIELDS-FUNCTXT_04.
     MOVE ''@B_CALC@추가버튼5'' TO SSCRFIELDS-FUNCTXT_05.
5. * -> @사이에는 아이콘 이름을 넣고 @옆에는 아이콘 옆에 나올 텍스트를 넣으면 됩니다.
6. AT SELECTION-SCREEN.
     CASE SSCRFIELDS-UCOMM.
       WHEN ''FC01''. MESSAGE S001(CJ) WITH ''FUCNTION KEY'' SSCRFIELDS-UCOMM+3 ''CLICKED ''.
       WHEN ''FC02''. MESSAGE S001(CJ) WITH ''FUCNTION KEY'' SSCRFIELDS-UCOMM+3 ''CLICKED ''.
       WHEN ''FC03''. MESSAGE S001(CJ) WITH ''FUCNTION KEY'' SSCRFIELDS-UCOMM+3 ''CLICKED ''.
       WHEN ''FC04''. MESSAGE S001(CJ) WITH ''FUCNTION KEY'' SSCRFIELDS-UCOMM+3 ''CLICKED ''.
       WHEN ''FC05''. MESSAGE S001(CJ) WITH ''FUCNTION KEY'' SSCRFIELDS-UCOMM+3 ''CLICKED ''.
       WHEN OTHERS.
     ENDCASE.
   

 

생각보다 간단하군요!