One blank line

Question

Hi there,
I have written a package which exports some lines into a .dat file.
The below does the output.
the file exported is correct and has got all the information except for the fact that the first line starts from row number 2 in the file: i.e. the first line of the file is blank and the first row that is extracted using an sql in the package appears in the second line of the file and so on...
Can you please advise?
Thanks
BEGIN
    -- Anonymous Block
    BEGIN
      Space := ' ';
      SELECT Program_Station_Code
        INTO v_Channel_Code
        FROM Additional_Fields_Channel
       WHERE Channel_Id = v_Channel_Id;
      --Get channel type (primary or +1)
      SELECT c.Channel_Name, c.Parent_Channel_Id
        INTO v_Channel_Name, v_Parent_Channel_Id
        FROM Channel c
       WHERE Channel_Id = v_Channel_Id;
      IF v_Parent_Channel_Id <> -1
      THEN
        -- +1's
        --Check to see if any feeds setup against channel
        SELECT COUNT(1)
          INTO v_Day_Part_Count
          FROM Day_Part Dp
         WHERE Dp.Channel_Id = v_Channel_Id;
        IF v_Day_Part_Count = 0
        THEN
          v_Start_Time_Start_Range := 540000; --06:00
          v_Start_Time_End_Range   := 2610000; --29:00
        ELSE
          SELECT Dp.Start_Time, Dp.Start_Time + Dp.Duration
            INTO v_Start_Time_Start_Range, v_Start_Time_End_Range
            FROM Day_Part Dp
           WHERE Dp.Channel_Id = v_Channel_Id;
        END IF;
        v_New_Channel_Id := v_Parent_Channel_Id;
        SELECT c.Network_Offset
          INTO v_Duration_Offset
          FROM Channel c
         WHERE c.Channel_Id = v_Channel_Id;
        IF v_Start_Time_End_Range >= 2610000
        THEN
          v_Take_Prgs_From_Previous_Day := 1;
        ELSE
          v_Take_Prgs_From_Previous_Day := 0;
        END IF;
        v_End_Time := 2610000; --29:00
      ELSE
        v_New_Channel_Id         := v_Channel_Id;      
        v_Duration_Offset        := 0;
        v_Start_Time_Start_Range := 540000;
        v_Start_Time_End_Range   := 2700000;
      END IF;
      p_Filename := '0' || Substr(v_Channel_Code, 1, 4) || '-' ||
                    To_Char(v_Start_Date, 'DDMMYY') || '.dat';
      l_Output   := Utl_File.Fopen('TEST', p_Filename, 'w', 32767);
      Utl_File.New_Line(l_Output);
      FOR Each_Record IN Infosys_Cursor LOOP
        v_Report_On_Date      := To_Char(v_Start_Date, 'DDMMYY');
        v_Adjusted_Start_Time := Tools_Pkg.Get_Time_Display_2(Each_Record.Start_Time +
                                                              v_Duration_Offset,
                                                              1,
                                                              1);
        /*   IF v_Adjusted_Start_Time < 540000
        THEN
          v_Adjusted_Start_Time := 540000;
        END IF;*/
        v_New_Start_Time := Substr(To_Char(v_Adjusted_Start_Time), 1, 2) ||
                            Substr(To_Char(v_Adjusted_Start_Time), 4, 2) ||
                            Substr(To_Char(v_Adjusted_Start_Time), 7, 2);
        v_Mins_To_Secs := To_Number(Substr(Each_Record.Duration, 4, 2)) * 60;
        v_Secs         := To_Number(Substr(Each_Record.Duration, 7, 2));
        v_Total_Secs   := Lpad(To_Char(v_Mins_To_Secs + v_Secs), 3, '0');
        v_Description := Rpad(Each_Record.Programme_Name, 30, ' ') ||
                         Rpad(Each_Record.Event_Description, 30, ' ');
        v_Type_Description := Substr(Rpad(To_Char(Each_Record.Type_Description),
                                          10,
                                     1,
                                     3);
        v_Short_Channel_Name := Substr(Rpad(To_Char(Each_Record.Short_Name),
                                            4,
                                       1,
                                       2);
        Utl_File.Put(l_Output, Each_Record.Area_Code);
        Utl_File.Put(l_Output, v_Report_On_Date);
        Utl_File.Put(l_Output, '0' || v_Channel_Code);
        Utl_File.Put(l_Output, v_New_Start_Time);
        Utl_File.Put(l_Output, v_Total_Secs);
        Utl_File.Put(l_Output, Rpad(Each_Record.House_Number, 14, ' '));
        Utl_File.Put(l_Output, Space || Nvl(v_Short_Channel_Name, 'NA'));
        Utl_File.Put(l_Output, Space || v_Type_Description || ':');
        Utl_File.Put(l_Output, Space || v_Description);
        Utl_File.New_Line(l_Output);
      END LOOP;
      Utl_File.Fclose(l_Output);
    END;
    Utl_File.Fclose(l_Output);
    Utl_File.Fclose(l_Logfile);

Answer 1

You are doing it yourself.
l_Output := Utl_File.Fopen('TEST', p_Filename, 'w', 32767);
Utl_File.New_Line(l_Output); That new_line is creating a blank new line at the start. According to you, it's not needed.
Message was edited by:
Dave Hemming