To find whether it is working day or not

Question

Hi,
Could you provide me some logic on below:
From the Order Date, the next 10th day i want to find out whether it is holiday or working day.
if order date = Sysdate , then i need to know whether following 10th day is holiday or working day.
DB:10g
Thanks.

Answer 1

Hi Jaysree,
just execute this code ,, this will do .
REPORT ZEX4 .
PARAMETERS: fname  LIKE rlgrap-filename .
DATA: len TYPE i,
      T  TYPE I VALUE 0,
      inp(20) TYPE C,
      inp1(20) type c,
      inp2(20) type c,
      inp3(20) type c.
DATA :gv_char.
RANGES : gv_charsel FOR gv_char,
         gv_charsel1 FOR gv_char,
         gv_charsel2 FOR gv_char.
START-OF-SELECTION.
  gv_charsel-sign = 'I'.
  gv_charsel-option = 'BT'.
  gv_charsel-low = '0'.
  gv_charsel-high = '9'.
  APPEND gv_charsel.
  gv_charsel1-sign = 'I'.
  gv_charsel1-option = 'BT'.
  gv_charsel1-low = 'a'.
  gv_charsel1-high = 'z'.
  APPEND gv_charsel1.
  gv_charsel2-sign = 'I'.
  gv_charsel2-option = 'BT'.
  gv_charsel2-low = 'A'.
  gv_charsel2-high = 'Z'.
  APPEND gv_charsel2.
  CONDENSE fname.
  len = strlen( fname ).
WRITE:/ len.
  DO len TIMES.
  MOVE FNAME+T(1) TO GV_CHAR.
    IF gv_char IN gv_charsel.
      MOVE fnameT(1) TO inpT(1).
    elseif gv_char in   gv_charsel1. "or gv_charsel2.
      MOVE fnameT(1) TO inp1T(1).
    elseif gv_char in gv_charsel2.
      MOVE fnameT(1) TO inp2T(1).
    else.
    move fnameT(1) TO inp3T(1).
    ENDIF.
    T = T + 1.
  ENDDO.
CONDENSE INP.
CONDENSE INP1.
CONDENSE INP2.
CONDENSE INP3.
write:/ 'Numbers  :', inp.
write:/ 'Lowercase :', inp1.
write:/ 'Uppercase :', inp2.
Write:/ 'Special Characters :', inp3.
regards,
VIjay.
kindly close the thread if ur query is over .