TEXT_IO/cursor problem - Appropriate SELECT...INTO.. returns no rows!

Question

Hi,
I have a button on a form which, when pressed, uses the built-in "GET_FILE_NAME" to locate a comma-delimited flat file. I use TEXT_IO to open the file and process the rows in a FOR LOOP. In the loop, I parse each comma delimited field into it's own variable. One of these fieldsis a week-ending-date, which is converted to a DATE variable. I need to get the year and week # from a support table called "Week" (I could justget the year from the date, but the week number is arbitrary when crossing over years). I have tried using a SELECT..INTO statement and an explicit cursor with the same results - none. The select into I use is:
SELECT year, week
INTO v_year, v_week
FROM schema1.week
WHERE TRUNC(end_date) = TRUNC(v_edate);
--where v_year and v_week are the same %TYPE as their corresponding columns
-- and v_edate is the week-ending-DATE from the flat file
When I do this from SQL*PLUS, it comes out fine, but no data is found when run in the form. I don't get it... if there is nothing wrong with the syntax, shouldn't this work in both places? Or is there some limitation on using cursors while processing a TEXT_IO file? If anyone knows the why of this or can think of a workaround, please let me know.
Oracle Version: 8.1.7.0.0
Server: IRIX - Unix
Forms Version: 6.0.5.35.3
Client: Win 98
Thanks much,
Jason

Answer 1

DECLARE
     v_filename VARCHAR2(100);
     temp_file TEXT_IO.File_Type;
     linebuff VARCHAR2(1800);
     v_edate DATE;
     v_year schema1.week.year%TYPE;
     v_week schema1.week.week%TYPE);
     str_start NUMBER;
     str_end     NUMBER;
     CURSOR week_cur (p_edate IN DATE) IS
          SELECT year, week
          FROM schema1.week
          WHERE TRUNC(end_date) = TRUNC(p_edate);
BEGIN
     v_filename := GET_FILE_NAME ('c:\files\');
     temp_file := TEXT_IO.Fopen (v_filename, 'R');
     FOR i IN 1..3 LOOP
          TEXT_IO.Get_Line (temp_file, linebuff);
          IF i > 1 THEN
               GO_BLOCK ('DATA_DUMP');
               NEXT_RECORD;
          END IF;
          str_end := INSTR(linebuff, ',') - 1;
          :DATA_DUMP.stnum := SUBSTR (linebuff, 1, str_end);
          str_start := str_end +2;
          str_end := INSTR(linebuff, ',', 1, 2);
          :DATA_DUMP.dnum := SUBSTR (linebuff, str_start, str_end - str_start);
          str_start := str_end +1;
          str_end := INSTR(linebuff, ',', 1, 3);
          :DATA_DUMP.spp := SUBSTR (linebuff, str_start, str_end - str_start);
          str_start := str_end +1;
          str_end := INSTR(linebuff, ',', 1, 4);
          v_edate := TO_DATE (SUBSTR(linebuff, str_start, str_end - str_start), 'MM/DD/YYYY');
          str_start := str_end +1;
          str_end := INSTR(linebuff, ',', 1, 5);
          :DATA_DUMP.lbs_land := SUBSTR (linebuff, str_start, str_end - str_start);
          str_start := str_end +1;
          str_end := LENGTH(linebuff);
          :DATA_DUMP.date_in := TO_DATE (SUBSTR(linebuff, str_start, str_end - str_start), 'MM/DD/YY HH:MI');
          OPEN week_cur (v_edate);
               FETCH week_cur INTO v_year, v_week;
          CLOSE week_cur;
          :DATA_DUMP.year := v_year;
          :DATA_DUMP.week := v_week;
     END LOOP;
END;