Oracle 6i Report Run

---6i

Declare
  pl_id ParamList;
BEGIN
  pl_id := Get_Parameter_List('tmpdata');
  IF NOT Id_Null(pl_id) THEN
    Destroy_Parameter_List( pl_id );
  END IF;
  pl_id := Create_Parameter_List('tmpdata');

 -- Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS');
   Run_Product(REPORTS, :global.path||'reports\ledger_cover_letter.rep', SYNCHRONOUS, RUNTIME,
           FILESYSTEM, pl_id, NULL);
END;

------------------------

declare  pl_id ParamList;
BEGIN
  pl_id := Get_Parameter_List('tmpdata');
  IF NOT Id_Null(pl_id) THEN
    Destroy_Parameter_List( pl_id );
  END IF;
   pl_id := Create_Parameter_List('tmpdata');
    Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'no');
    Add_Parameter(pl_id, 'P_SERIALNO', TEXT_PARAMETER, :get_paas_mast.SERIALNO);
  --  Run_Product(REPORTS, :GLOBAL.path||'INVENTORY\Reports\get_pass_rep.rep', ASYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, NULL);
 -- Run_Product(REPORTS, 'D:\Star_ceramics\Get_pass\get_pass_rep.rep', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, NULL);
  Run_Product(REPORTS, '\\10.10.101.11\Star_Ceramics\Star_ceramics\menu\Get_pass\reports\get_pass_rep.rep', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, NULL);

END;