PL\SQL Loop question: Beginner.

RPT_DATE := TO_CHAR(SYSDATE, 'Dy Mon dd HH:MI:SS YYYY');
rptfile := UTL_FILE.FOPEN('/data/oracle/rpts',
                              SRC_SEGMENT || '.LNG',
                              'w');

FOR toprec in top LOOP
	
	--1. Outout Date/Timestamp line
	IF RUN_ONCE = 0 THEN
  	UTL_FILE.put_line(rptfile, 'Date/Time Stamp: ' || RPT_DATE);
  	RUN_ONCE := 1;
  END IF;
  REPEAT_SEGMENT := toprec.SEGMENT;
  
  --2. Show line once
  IF REPEAT_SEGMENT = toprec.SEGMENT THEN
  	REPEAT_SEGMENT := toprec.SEGMENT;
  	UTL_FILE.put_line(rptfile,
                      'Segment: ' || toprec.SEGMENT || ' ' ||
                      toprec.SEGMENT_DEF || ' Pg ' ||
                      LPAD(toprec.LPN_ORDER, 5, '0') || ' LPN ' ||
                      toprec.LPN);
	END IF;
  
  --3. Repeat lines
  UTL_FILE.put_line(rptfile,
                    '     PgMbr ' || LPAD(toprec.PGMBR_ORDER, 3, '0') ||
                    ' PgMbrID ' || toprec.PAGEMBR);

END LOOP;

UTL_FILE.FCLOSE(rptfile);

PROCEDURE proc
IS

v_curr_segment NUMBER;

CURSOR cur1
IS
select segment_id, segment_field1, segment_field2 etc.
from segments;

CURSOR cur2
IS
select PgMbr_id, PgMbr_field1, PgMbr_field2 etc.
from pgMbrs
where segment_id = v_curr_segment;

BEGIN

/* Write Date */
UTL_FILE.put_line(rptfile, 'Date/Time Stamp: ' || RPT_DATE);

/* Open Segment Cursor */
FOR rec1 IN cur1
LOOP
  /* Write Segment */
  UTL_FILE.put_line(rptfile, 'Segment Info');

  /* Set variable to current segment */
  v_curr_segment := rec1.segment_id;

  /* Open PgMbr Cursor */
  FOR rec2 IN cur2
  LOOP
    /* Write PgMbr */
    UTL_FILE.put_line(rptfile, 'PgMbr Info');
  END LOOP;

END LOOP;

END;