< 사용 용도>  
1.공휴일 => '다음평일 = 입금일' 일경우만 =>  다음 평일로 만기일 계산  
2.해당일이 휴일인지 체크  

< 사용방법>  
DATA : LV_DAYTXT   LIKE   HRVSCHED-DAYTXT,  
       LV_DAYNR    LIKE   HRVSCHED-DAYNR.  

DO 7 TIMES.  "연속휴일 체크  
  CALL FUNCTION 'RH_GET_DATE_DAYNAME'       "요일 찾는 Function  
       EXPORTING  
               LANGU = SY-LANGU  
               DATE  = PLANDATE         "입력된 변수임  
               CHECK = ' '  
       IMPORTING  
               DAYNR  = LV_DAYNR  
               DAYTXT = LV_DAYTXT.  
  IF LV_DAYNR =  '7'.        "일요일  
        PLANDATE = PLANDATE + 1.  
  ENDIF.  

*---(회사 공휴일 및 년도별 특정 등록 휴일체크;창립일,국민투표일등)  
  SELECT SINGLE * FROM  THOC  WHERE  IDENT = CALENDAR_ID  
                                                                      "각 회사 calendar:KO,KR  
                               AND   DATUM = PLANDATE.  
  IF  SY-SUBRC = 0.        "공휴일  
       PLANDATE = PLANDATE + 1.  
  ELSE.  
      EXIT.  
  ENDIF.  

* 썬님에 의해서 게시물 이동되었습니다 (2010-03-30 13:09)