Setting a loop to write a file using the UTL_FILE

Question

I never done this using the UTL file, so I am going to ask, I need to create a file that is looks like this
H xxxxxxxxxxxx (the header same for the all file)
I Invoice Data (Information on Each account Number)
D (invoice Dtail) Detail information in each account
D
D
D
I  Invoice Data (Information on Each account Number (record 2 ) diferrent Account #n )
D (invoice Dtail) Detail information on account2
D
D
D
I  Invoice Data (Information on Each account Number (record 3 ) diferrent Account #n )
D (invoice Dtail) Detail information on account3
D
D
D
File Footer
Number on invoices
And totals I have the H the header the I (invoice Data) and D (detail) in cursors
I wonder how I can set up the loop, so the information will ended
like
The heade on top of the file, not problem here
but each
I Invoice Data
needs to have the respectively
D detail lines
I hope this is clear!!

Answer 1

If cursors x, y, and z map to H, I, and D in your file spec, you would need to nest the D cursor within the I cursor
FOR   x in  Invoice_data_cur
   LOOP
         utl_file.put_line(outfile,
           RPAD ('I', 2, ' ')
         ||RPAD (x.spriden_id, 9)
         ||TO_CHAR (SYSDATE, 'MM/DD/RRRR')
         ||RPAD (x.balance1, 13, '0')
           ---more stuff
   FOR  y in invoice_detail_charges_cur(x.pidm) 
         LOOP
             utl_file.put_line( outfile,
              RPAD ('D', 2, ' ')
            ||RPAD (y.spriden_id, 9)
            ||RPAD ('Previous Balance', 16, ' ')
            ||RPAD (y.stvterm_desc, 9, ' ')
            ||RPAD (TO_CHAR (SYSDATE, 'MM/DD/RRRR'), 10)
            ||RPAD (y.tbbdetc_desc, 50, ' ')
            ||LPAD(NVL (y.tbraccd_amount, '0000000000000'), 13, '0')
       for z in invoice_detail_payments_cur(x.pidm)
          LOOP
               utl_file.put_line( outfile,
                RPAD ('D', 2, ' ')
              ||RPAD (z.spriden_id, 9)
              ||RPAD ('Pending Aid ', 16, ' ')
              ||RPAD (z.STVTERM_DESC, 9, ' ')
              ||RPAD (TO_CHAR (SYSDATE, 'MM/DD/RRRR'), 10)
              ||RPAD (z.tbbdetc_desc, 50, ' ')
              ||LPAD (NVL (z.tbraccd_amount, '0000000000000'), 13, '0')
          END LOOP;      
        END LOOP;
END LOOP;From a code clarity standpoint, if your file spec uses H, I, and D as a sort of row-type identifier, I would strongly suggest that your loop variable follow that convention or spell out the row type. That is
FOR h IN Invoice_data_cur
LOOP
  <<write header>>
  FOR i IN invoice_detail_charges_cur(h.pidm)
  LOOP
    <<write invoice data>>
    FOR d IN invoice_detail_payments_cur( h.pidm )
    LOOP
      <<write invoice detail>>
    END LOOP;
  END LOOP;
END LOOP;Justin