SAP 사용자 ID별 Variant 자동 선택

SAP에서 개발된 여러 프로그램에 Variant가 많이 걸려가 있습니다. ID별로 조금 편리하게 Variant를 자동으로 셋팅되게 만들 수 있게 하방법 입니다. 아래소스보시면 쉽게 이해 가능하실겁니다. 

*-----------------------------------------* * INITIALIZATION *-----------------------------------------* INITIALIZATION. PERFORM SET_VARIANT. *&---------------------------------------------------------------------* *& Form SET_VARIANT *&---------------------------------------------------------------------* FORM SET_VARIANT . DATA: LS_VARID TYPE VARID, LV_REPID LIKE RSVAR-REPORT, LV_VARIANT LIKE RSVAR-VARIANT. CLEAR: LV_REPID, LV_VARIANT, LS_VARID. LV_REPID = SY-REPID. * ID별 VARIANT 가져오기 SELECT SINGLE * INTO LS_VARID FROM VARID WHERE REPORT = LV_REPID AND ENAME = SY-UNAME. LV_VARIANT = LS_VARID-VARIANT. * SCREEN 적용 CALL FUNCTION 'RS_SUPPORT_SELECTIONS' EXPORTING REPORT = LV_REPID VARIANT = LV_VARIANT EXCEPTIONS VARIANT_NOT_EXISTENT = 01 VARIANT_OBSOLETE = 02. IF SY-SUBRC <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " SET_VARIANT