Passing values with each program run

Question

Hi ,
I have a program which runs 6 days a week and updates a table.Now my requirement is to assign a value to a field for each day when the program runs every day in the week.
<b>For first day - D
second day - D-1
sixth day - D-5.</b>
when the program runs after D-5 it should again start from D.
How can i achieve this please advise.
Regards
Pavan

Answer 1

Hi kumar,
1.
03-Jun-06     D
04-Jun-06     D-1
05-Jun-06     D-2
06-Jun-06     D-3
07-Jun-06     D-4
08-Jun-06     D-5
09-Jun-06     
10-Jun-06     D
11-Jun-06     D-1
12-Jun-06     D-2
13-Jun-06     D-3
2. this program will give output,
   based upon date input.
3.  just copy paste
report abc.
data : monday type sy-datum.
data : abc(3) type c.
data : diff type i.
DATA : DAYNR TYPE C.
parameters : mydate type sy-datum default sy-datum.
START-OF-SELECTION.
CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'
EXPORTING
   DATE          = mydate
IMPORTING
  WEEK          =
   MONDAY        = monday
  SUNDAY        =
DIFF  = MYDATE - MONDAY.
DAYNR = DIFF.
ABC = 'D'.
IF DIFF >= 1.
CONCATENATE ABC '-' DAYNR INTO ABC.
ENDIF.
WRITE ABC.
regards,
amit m.