PROCEDURE  RUN_REPORT  IS
   L_RUN_TEXT VARCHAR2 (2000);
   L_USRID    VARCHAR2 (100);
   L_PASSWD   VARCHAR2 (100);
   L_DESNAME  VARCHAR2 (100);
   FILE_OUT_PUT VARCHAR2(200);
   REP_STATUS VARCHAR2(20);
   REP_NAME VARCHAR2(50);
   PL_ID      PARAMLIST;
   REP_URL VARCHAR2(2000);
   V_REP VARCHAR2(200);

BEGIN
display_me('RUN_REPORT');
--  CALL THE FOLLOWING FUNCTION, IN WHICH USER CAN WRITE HIS OWN CODE.
--  THE PROCEDURE CAN BE MADE LOCAL TO THE SPECIFIC FORM AND WRITE THE CODE.
--  IT SHOULD RETURN 'Y', IF YOU WANT TO PROCEED WITH THIS RUN_REPORT
--  PROCEDURE.

   IF NVL (RUN_REPORT1, 'Y') = 'N' THEN
      RETURN;
   END IF;
   COMMIT_FORM;
 
   IF (GET_APPLICATION_PROPERTY (OPERATING_SYSTEM)) = 'UNIX' THEN
      L_DESNAME := 'LP';
   ELSE 
      L_DESNAME := NAME_IN ('REPORT_TITLE.F_FILE_NAME');
 display_me(L_DESNAME);
   END IF ;
	
/*   SETTING THE REPORT OBJECT PROPERTIES */
/* G_PRAM1 IS THE NAME OF REPORT ****/

 SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_EXECUTION_MODE,BATCH);
 SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_COMM_MODE,SYNCHRONOUS);
 SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_DESTYPE,CACHE);
 SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_DESFORMAT,'PDF');
 SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_SERVER,'172.18.76.34');
 SET_REPORT_OBJECT_PROPERTY('REPOBJ',REPORT_FILENAME,:GLOBAL.G_PARAM1||'.REP');
 
display_me(':GLOBAL.G_PARAM1 '||:GLOBAL.G_PARAM1);

   PL_ID := GET_PARAMETER_LIST ('REP_PARA');
   IF NOT ID_NULL (PL_ID) THEN
       DESTROY_PARAMETER_LIST ('REP_PARA');
   END IF;
   PL_ID := CREATE_PARAMETER_LIST('REP_PARA');
   
   ADD_PARAMETER (PL_ID, 'DESTYPE'    , TEXT_PARAMETER, NAME_IN ('REPORT_TITLE.RAG_DESTINATION') );
   ADD_PARAMETER (PL_ID, 'DESNAME'    , TEXT_PARAMETER, L_DESNAME);
   ADD_PARAMETER (PL_ID, 'COPIES'     , TEXT_PARAMETER, NAME_IN ('REPORT_TITLE.F_NO_COPY') );
   ADD_PARAMETER (PL_ID, 'ORIENTATION', TEXT_PARAMETER, 'LANDSCAPE');
   ADD_PARAMETER (PL_ID, 'MODE'       , TEXT_PARAMETER, 'BITMAP');
   ADD_PARAMETER (PL_ID, 'PARAMFORM'  , TEXT_PARAMETER, 'NO');
   ADD_PARAMETER (PL_ID, 'PARAM'    , TEXT_PARAMETER, NAME_IN ('IBP_REPORT_PARAMETER.F_REP_SEQ') );
   ADD_PARAMETER (PL_ID, 'P_COMP_CODE'  ,TEXT_PARAMETER,:GLOBAL.G_COMP_CODE);
display_me(':GLOBAL.G_COMP_CODE '||:GLOBAL.G_COMP_CODE);

   REP_NAME := :GLOBAL.G_PARAM1||'.REP';  
display_me('REP_NAME'||REP_NAME);
    V_REP := RUN_REPORT_OBJECT('REPOBJ');
display_me('V_REP '||V_REP);

    REP_STATUS := REPORT_OBJECT_STATUS(V_REP);
display_me('REP_STATUS'||REP_STATUS);

  	WHILE REP_STATUS IN ('RUNNING','OPENING_REPORT','ENQUEUED')LOOP
      REP_STATUS := REPORT_OBJECT_STATUS(V_REP);
    END LOOP;
 
   IF REP_STATUS = 'FINISHED' THEN 
    REP_URL:='/REPORTS/RWSERVLET/GETJOBID'||SUBSTR(V_REP,INSTR(V_REP,'_',-1)+1)||'?'||'SERVER=172.18.76.34';
    display_me('REP_URL '||REP_URL);
    WEB.SHOW_DOCUMENT(REP_URL,'_BLANK');
    ELSE
    MESSAGE('ERROR WHEN RUNNING REPORT');
    END IF;     
 END;