Help Needed.. Creating custom calendar problems

Question

I am trying to create a calendar like this
DateRun Shift
10/27/2004 06:30 A
10/27/2004 18:30 B
10/28/2004 06:30 C
10/28/2004 18:30 D
and so on.. except that there is a small login inside for day when it is Thursday. One week Shift 'A' works and the next week Shift 'B' works..
Here is the procedure; Appreciate your help immediately.,..
CREATE OR REPLACE procedure create_calendar as
STARTDATE VARCHAR2(20);
shifter1 varchar2(5);
shifter2 varchar2(5);
shiftcycle number;
counts number;
begin
startdate := '11/09/2000';
counts:= 0;
shiftcycle:= 14;
delete from calendar;
commit;
for counts in 0..1000
loop
dbms_output.put_line(counts);
if to_char(sysdate + counts,'DAY') = 'MONDAY' or to_char(sysdate + counts,'DAY') = 'TUESDAY' or to_char(sysdate + counts,'DAY') = 'WEDNESDAY'
then
dbms_output.put_line('Code in here 1');
shifter1:= 'A';
shifter2:= 'B';
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 06:30',shifter1 from dual;
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 18:30',shifter2 from dual;
elsif to_char(sysdate + counts,'DAY') = 'THURSDAY' and mod((to_char(sysdate + counts,'mm/dd/yyyy') - startdate),shiftcycle) = 0
then
dbms_output.put_line('Code in here 2');
shifter1:= 'A';
shifter2:= 'B';
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 06:30',shifter1 from dual;
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 18:30',shifter2 from dual;
elsif to_char(sysdate + counts,'DAY') = 'THURSDAY' and mod((to_char(sysdate + counts,'mm/dd/yyyy') - startdate),shiftcycle) <> 0
then
dbms_output.put_line('Code in here 3');
shifter1:= 'C';
shifter2:= 'D';
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 06:30',shifter1 from dual;
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 18:30',shifter2 from dual;
elsif to_char(sysdate + counts,'DAY') = 'FRIDAY' or to_char(sysdate + counts,'DAY') = 'SATURDAY' or to_char(sysdate + counts,'DAY') = 'SUNDAY'
then
dbms_output.put_line('Code in here 4');
shifter1:= 'C';
shifter2:= 'D';
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 06:30',shifter1 from dual;
insert into calendar (daterun, shift) select to_char(sysdate + counts,'mm/dd/yyyy') || ' 18:30',shifter2 from dual;
end if;
--exit when counts >1000;
end loop;
commit;
end create_calendar;

Answer 1

You don't say what your problem is, so it is kind of difficult to help.
As a guess, I would say that your code only inserts rows for Wednesdays. TO_CHAR(date, 'DAY') returns a string padded with spaces to the length of the longest day name, in English, that is Wednesday (9 characters).
SQL>DECLARE
  2     x DATE := sysdate;
  3  BEGIN
  4     IF TO_CHAR(x, 'DAY') = 'THURSDAY' THEN
  5        DBMS_OUTPUT.Put_Line('Is Thursday');
  6     ELSE
  7        DBMS_OUTPUT.Put_Line('Is Not');
  8     END IF;
  9
10     IF TO_CHAR(x, 'DAY') = 'THURSDAY ' THEN
11        DBMS_OUTPUT.Put_Line('Now it is Thursday');
12     ELSE
13        DBMS_OUTPUT.Put_Line('No it is not!');
14     END IF;
15  END;
16  /
Is Not
Now it is ThursdayTTFN
John