cursor v_dr is select code1 from T1;
for n in v_dr loop
   :dr:=n.code1;
   Add_Parameter(pl_id,'p_dr',TEXT_PARAMETER,:dr);
 
   repid := FIND_REPORT_OBJECT('rep');
   v_rep := RUN_REPORT_OBJECT(repid,pl_id);
   rep_status := REPORT_OBJECT_STATUS(v_rep); 
 
   IF rep_status = 'FINISHED' THEN
      MESSAGE('Report Completed');
      COPY_REPORT_OBJECT_OUTPUT(v_rep,'D:\LIST\pdf\'||:dr||'.pdf');
      HOST('netscape D:\LIST\pdf\'||:dr||'.pdf');
   ELSE
      MESSAGE ('Error when running report.');
   END IF;
loop

  pl_id ParamList; 
BEGIN 

--> start "this code would be part of your loop"
  -- Check to see if the 'tmpdata' parameter list exists. 
  pl_id := Get_Parameter_List('tmpdata'); 

  /* If it does, then delete it before we create it again in 
     case it contains parameters that are not useful for our 
     purposes here. 
  */ 
  IF NOT Id_Null(pl_id) THEN 
     Destroy_Parameter_List( pl_id ); 
  END IF; 
 
  -- Create the 'tmpdata' parameter list afresh. 

  pl_id := Create_Parameter_List('tmpdata'); 

--> end "this code would be part of your loop"

  /* Add a data parameter to this parameter list that will 
     establish the relationship between the named query 
    'EMP_QUERY' in the report, and the record group named 
    'EMP_RECS' in the form. 
  */ 

  Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS'); 

declare
    repid reportobject;
    v_Rep VARCHAR2(100);
   rep_status VARCHAR2(20);
   pl_id paramlist;
   cursor v_dr is select code1 dr  from T1
   ;
BEGIN
 
  pl_id:=get_parameter_list('Temp');
   if not id_null(pl_id) then
    destroy_parameter_list('temp');
   end if; 
   pl_id := Create_Parameter_List('Temp'); 
   Add_Parameter(pl_id,'op',TEXT_PARAMETER,:op);  ---:op is a  form item
   Add_Parameter(pl_id,'par',TEXT_PARAMETER,:par); ---:par is a item
   /*they are two block the first is contained the two text_parameter :op and :par  */
   next_block;
   /* the second block contain :dr that a populate list as a say*/
 for n in v_dr loop
   :dr:=n.dr;
   Add_Parameter(pl_id,'p_dr',TEXT_PARAMETER,:p_dr);
   :recept_nom:=n.lib;
   synchronize;
   repid := FIND_REPORT_OBJECT('bafko_ariary_a4_feno_omd');
   v_rep := RUN_REPORT_OBJECT(repid,pl_id);
   rep_status := REPORT_OBJECT_STATUS(v_rep);
 
   IF rep_status = 'FINISHED' THEN
      MESSAGE('Report Completed');
      COPY_REPORT_OBJECT_OUTPUT(v_rep,'D:\LIST\pdf\'||:dr||'.pdf');
      HOST('netscape D:\LIST\pdf\'||:dr||'.pdf');
   ELSE
      MESSAGE ('Error when running report.');
   END IF;
   :p_dr:=null;
  end loop;

end;